Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationWed, 11 Nov 2009 16:23:35 -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/2009/Nov/12/t12579818813qntcen2ql4960d.htm/, Retrieved Fri, 03 May 2024 21:31:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55870, Retrieved Fri, 03 May 2024 21:31:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact190
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
-    D    [Notched Boxplots] [12/11/2009] [2009-11-11 23:23:35] [d41d8cd98f00b204e9800998ecf8427e] [Current]
-           [Notched Boxplots] [12/11/2009] [2009-11-12 21:03:01] [042afd35c01270e61d40a9e124c142d4]
Feedback Forum

Post a new message
Dataseries X:
153.24	146.54	133.39	98.86
184.48	120.13	133.74	100.83
191.81	131.67	129.67	117.15
168.19	131.97	126.70	106.96
163.81	145.92	126.84	101.25
190.57	177.02	128.45	115.80
163.81	149.56	129.84	90.85
129.62	171.58	128.83	100.62
173.90	173.95	129.22	118.61
198.76	190.39	132.14	114.66
135.52	183.46	137.40	108.00
179.81	165.44	141.78	105.61
137.05	186.32	138.74	98.34
142.57	223.29	137.63	99.69
187.52	198.99	139.61	108.84
220.48	191.05	136.82	106.86
208.76	178.42	134.24	101.98
210.19	187.85	128.64	118.40
232.57	183.51	126.43	84.10
173.81	252.94	127.25	99.48
218.86	213.51	126.72	117.67
226.76	185.53	124.18	110.08
196.67	215.48	121.73	113.10
237.43	214.39	122.34	106.34
173.14	229.21	124.74	102.91
207.62	183.55	122.81	104.68
234.67	206.71	123.40	120.06
204.10	186.23	125.68	104.68
230.76	217.46	130.78	114.24
210.19	214.69	129.41	119.13
194.76	202.06	129.49	88.77
172.10	225.57	130.51	104.47
221.90	220.70	129.01	119.33
225.24	246.32	127.33	121.10
228.00	273.51	129.41	117.36
198.76	220.66	132.06	106.03
199.05	295.88	129.35	110.19
235.43	215.35	129.47	109.46
270.76	230.83	130.92	123.49
234.10	220.00	133.39	110.29
237.24	232.06	132.48	113.62
239.43	237.68	130.86	121.83
239.24	294.39	132.75	96.15
197.33	295.35	131.81	108.32
217.43	267.68	133.56	116.94
242.19	274.12	136.38	127.23
207.52	246.84	139.22	117.78
232.76	249.34	137.23	103.95
222.10	303.25	136.16	115.07
202.48	236.14	135.03	117.26
228.10	233.38	140.33	114.14
319.52	260.96	140.85	121.93
236.95	281.18	138.58	113.41
252.00	281.54	137.08	120.48
262.29	288.95	137.75	99.79
172.10	332.68	131.10	103.74
243.90	345.96	125.54	121.41
235.62	414.96	116.36	120.27
216.95	285.35	111.10	103.33
236.29	288.03	117.81	98.02




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132

\begin{tabular}{lllllllll}
\hline
Summary of computational 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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55870&T=0

[TABLE]
[ROW][C]Summary of computational 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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55870&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55870&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 computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
ENC129.62186210.19234.385270.76
IVC120.13185.88220.33264.32345.96
WK116.36127.045130.645135.595141.78
IP84.1103.12109.77117.515127.23

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
ENC & 129.62 & 186 & 210.19 & 234.385 & 270.76 \tabularnewline
IVC & 120.13 & 185.88 & 220.33 & 264.32 & 345.96 \tabularnewline
WK & 116.36 & 127.045 & 130.645 & 135.595 & 141.78 \tabularnewline
IP & 84.1 & 103.12 & 109.77 & 117.515 & 127.23 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55870&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]ENC[/C][C]129.62[/C][C]186[/C][C]210.19[/C][C]234.385[/C][C]270.76[/C][/ROW]
[ROW][C]IVC[/C][C]120.13[/C][C]185.88[/C][C]220.33[/C][C]264.32[/C][C]345.96[/C][/ROW]
[ROW][C]WK[/C][C]116.36[/C][C]127.045[/C][C]130.645[/C][C]135.595[/C][C]141.78[/C][/ROW]
[ROW][C]IP[/C][C]84.1[/C][C]103.12[/C][C]109.77[/C][C]117.515[/C][C]127.23[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55870&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55870&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
ENC129.62186210.19234.385270.76
IVC120.13185.88220.33264.32345.96
WK116.36127.045130.645135.595141.78
IP84.1103.12109.77117.515127.23







Boxplot Notches
Variablelower boundmedianupper bound
ENC200.320566908471210.19220.059433091529
IVC204.330034479704220.33236.329965520296
WK128.900995599203130.645132.389004400797
IP106.833749315851109.77112.706250684149

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
ENC & 200.320566908471 & 210.19 & 220.059433091529 \tabularnewline
IVC & 204.330034479704 & 220.33 & 236.329965520296 \tabularnewline
WK & 128.900995599203 & 130.645 & 132.389004400797 \tabularnewline
IP & 106.833749315851 & 109.77 & 112.706250684149 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55870&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]ENC[/C][C]200.320566908471[/C][C]210.19[/C][C]220.059433091529[/C][/ROW]
[ROW][C]IVC[/C][C]204.330034479704[/C][C]220.33[/C][C]236.329965520296[/C][/ROW]
[ROW][C]WK[/C][C]128.900995599203[/C][C]130.645[/C][C]132.389004400797[/C][/ROW]
[ROW][C]IP[/C][C]106.833749315851[/C][C]109.77[/C][C]112.706250684149[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55870&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55870&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
ENC200.320566908471210.19220.059433091529
IVC204.330034479704220.33236.329965520296
WK128.900995599203130.645132.389004400797
IP106.833749315851109.77112.706250684149



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')