Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationTue, 27 Nov 2007 13:04:26 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2007/Nov/27/t1196193282efuxhb3ng0g1s0f.htm/, Retrieved Sun, 05 May 2024 09:18:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=6936, Retrieved Sun, 05 May 2024 09:18:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsNotched boxplot $ RA
Estimated Impact185
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Paper ] [2007-11-27 20:04:26] [c4516de5538230e4cf0ae0b9d9e43dd3] [Current]
Feedback Forum

Post a new message
Dataseries X:
0,9383	90,8
0,9217	96,4
0,9095	90
0,892	92,1
0,8742	97,2
0,8532	95,1
0,8607	88,5
0,9005	91
0,9111	90,5
0,9059	75
0,8883	66,3
0,8924	66
0,8833	68,4
0,87	70,6
0,8758	83,9
0,8858	90,1
0,917	90,6
0,9554	87,1
0,9922	90,8
0,9778	94,1
0,9808	99,8
0,9811	96,8
1,0014	87
1,0183	96,3
1,0622	107,1
1,0773	115,2
1,0807	106,1
1,0848	89,5
1,1582	91,3
1,1663	97,6
1,1372	100,7
1,1139	104,6
1,1222	94,7
1,1692	101,8
1,1702	102,5
1,2286	105,3
1,2613	110,3
1,2646	109,8
1,2262	117,3
1,1985	118,8
1,2007	131,3
1,2138	125,9
1,2266	133,1
1,2176	147
1,2218	145,8
1,249	164,4
1,2991	149,8
1,3408	137,7
1,3119	151,7
1,3014	156,8
1,3201	180
1,2938	180,4
1,2694	170,4
1,2165	191,6
1,2037	199,5
1,2292	218,2
1,2256	217,5
1,2015	205
1,1786	194
1,1856	199,3
1,2103	219,3
1,1938	211,1
1,202	215,2
1,2271	240,2
1,277	242,2
1,265	240,7
1,2684	255,4
1,2811	253
1,2727	218,2
1,2611	203,7
1,2881	205,6
1,3213	215,6




Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of compuational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=6936&T=0

[TABLE]
[ROW][C]Summary of compuational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=6936&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=6936&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
$0.85320.96661.18211.23911.3408
RA6691.7110.05192.8255.4

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
$ & 0.8532 & 0.9666 & 1.1821 & 1.2391 & 1.3408 \tabularnewline
RA & 66 & 91.7 & 110.05 & 192.8 & 255.4 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=6936&T=1

[TABLE]
[ROW][C]Boxplot statistics[/C][/ROW]
[ROW][C]Variable[/C][C]lower whisker[/C][C]lower hinge[/C][C]median[/C][C]upper hinge[/C][C]upper whisker[/C][/ROW]
[ROW][C]$[/C][C]0.8532[/C][C]0.9666[/C][C]1.1821[/C][C]1.2391[/C][C]1.3408[/C][/ROW]
[ROW][C]RA[/C][C]66[/C][C]91.7[/C][C]110.05[/C][C]192.8[/C][C]255.4[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=6936&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=6936&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
$0.85320.96661.18211.23911.3408
RA6691.7110.05192.8255.4







Boxplot Notches
Variablelower boundmedianupper bound
$1.131359195893361.18211.23284080410664
RA91.2246961644705110.05128.875303835529

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
$ & 1.13135919589336 & 1.1821 & 1.23284080410664 \tabularnewline
RA & 91.2246961644705 & 110.05 & 128.875303835529 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=6936&T=2

[TABLE]
[ROW][C]Boxplot Notches[/C][/ROW]
[ROW][C]Variable[/C][C]lower bound[/C][C]median[/C][C]upper bound[/C][/ROW]
[ROW][C]$[/C][C]1.13135919589336[/C][C]1.1821[/C][C]1.23284080410664[/C][/ROW]
[ROW][C]RA[/C][C]91.2246961644705[/C][C]110.05[/C][C]128.875303835529[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=6936&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=6936&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Boxplot Notches
Variablelower boundmedianupper bound
$1.131359195893361.18211.23284080410664
RA91.2246961644705110.05128.875303835529



Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = grey ;
R code (references can be found in the software module):
z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1))
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('overview.htm','Boxplot statistics','Boxplot overview'),6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,hyperlink('lower_whisker.htm','lower whisker','definition of lower whisker'),1,TRUE)
a<-table.element(a,hyperlink('lower_hinge.htm','lower hinge','definition of lower hinge'),1,TRUE)
a<-table.element(a,hyperlink('central_tendency.htm','median','definitions about measures of central tendency'),1,TRUE)
a<-table.element(a,hyperlink('upper_hinge.htm','upper hinge','definition of upper hinge'),1,TRUE)
a<-table.element(a,hyperlink('upper_whisker.htm','upper whisker','definition of upper whisker'),1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,i])
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot Notches',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower bound',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper bound',1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
a<-table.element(a,r$conf[1,i])
a<-table.element(a,r$stats[3,i])
a<-table.element(a,r$conf[2,i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')