Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationTue, 16 Dec 2008 16:40:07 -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/2008/Dec/17/t1229470910bd1ivx92vnbf222.htm/, Retrieved Mon, 27 May 2024 03:25:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=34252, Retrieved Mon, 27 May 2024 03:25:33 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact222
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Notched Boxplots] [workshop 3] [2007-10-26 13:31:48] [e9ffc5de6f8a7be62f22b142b5b6b1a8]
F   PD  [Notched Boxplots] [Notched Boxplots ...] [2008-11-03 18:49:35] [b591abfa820a394aeb0c5ebd9cfa1091]
F R       [Notched Boxplots] [Notched Boxplots ...] [2008-11-03 19:03:22] [b591abfa820a394aeb0c5ebd9cfa1091]
-    D        [Notched Boxplots] [Notched Box Plots] [2008-12-16 23:40:07] [6d5cd2fe15d123a10639b4bf141c23b5] [Current]
Feedback Forum

Post a new message
Dataseries X:
2497,84	10032,80	41,84
2645,64	10204,59	42,94
2756,76	10001,60	49,14
2849,27	10411,75	44,61
2921,44	10673,38	40,22
2981,85	10539,51	44,23
3080,58	10723,78	45,85
3106,22	10682,06	53,38
3119,31	10283,19	53,26
3061,26	10377,18	51,80
3097,31	10486,64	55,30
3161,69	10545,38	57,81
3257,16	10554,27	63,96
3277,01	10532,54	63,77
3295,32	10324,31	59,15
3363,99	10695,25	56,12
3494,17	10827,81	57,42
3667,03	10872,48	63,52
3813,06	10971,19	61,71
3917,96	11145,65	63,01
3895,51	11234,68	68,18
3801,06	11333,88	72,03
3570,12	10997,97	69,75
3701,61	11036,89	74,41
3862,27	11257,35	74,33
3970,10	11533,59	64,24
4138,52	11963,12	60,03
4199,75	12185,15	59,44
4290,89	12377,62	62,50
4443,91	12512,89	55,04
4502,64	12631,48	58,34
4356,98	12268,53	61,92
4591,27	12754,80	67,65
4696,96	13407,75	67,68
4621,40	13480,21	70,30
4562,84	13673,28	75,26
4202,52	13239,71	71,44
4296,49	13557,69	76,36
4435,23	13901,28	81,71
4105,18	13200,58	92,60
4116,68	13406,97	90,60
3844,49	12538,12	92,23
3720,98	12419,57	94,09
3674,40	12193,88	102,79
3857,62	12656,63	109,65
3801,06	12812,48	124,05
3504,37	12056,67	132,69
3032,60	11322,38	135,81
3047,03	11530,75	116,07
2962,34	11114,08	101,42




Summary of computational 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 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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=34252&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=34252&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=34252&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'Gwilym Jenkins' @ 72.249.127.135







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
X17.823181637393168.041161831850618.219132746278288.328093514982618.45467076991664
X29.210500359177559.275508070140379.331656552322359.436528882692569.53973620121003
X33.694364384344514.027492255234264.156770374146474.335458998857554.75419345738053

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
X1 & 7.82318163739316 & 8.04116183185061 & 8.21913274627828 & 8.32809351498261 & 8.45467076991664 \tabularnewline
X2 & 9.21050035917755 & 9.27550807014037 & 9.33165655232235 & 9.43652888269256 & 9.53973620121003 \tabularnewline
X3 & 3.69436438434451 & 4.02749225523426 & 4.15677037414647 & 4.33545899885755 & 4.75419345738053 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=34252&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]X1[/C][C]7.82318163739316[/C][C]8.04116183185061[/C][C]8.21913274627828[/C][C]8.32809351498261[/C][C]8.45467076991664[/C][/ROW]
[ROW][C]X2[/C][C]9.21050035917755[/C][C]9.27550807014037[/C][C]9.33165655232235[/C][C]9.43652888269256[/C][C]9.53973620121003[/C][/ROW]
[ROW][C]X3[/C][C]3.69436438434451[/C][C]4.02749225523426[/C][C]4.15677037414647[/C][C]4.33545899885755[/C][C]4.75419345738053[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=34252&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=34252&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
X17.823181637393168.041161831850618.219132746278288.328093514982618.45467076991664
X29.210500359177559.275508070140379.331656552322359.436528882692569.53973620121003
X33.694364384344514.027492255234264.156770374146474.335458998857554.75419345738053







Boxplot Notches
Variablelower boundmedianupper bound
X18.155019083192238.219132746278288.28324640936433
X29.295677137246529.331656552322359.36763596739819
X34.087956516342944.156770374146474.22558423194999

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
X1 & 8.15501908319223 & 8.21913274627828 & 8.28324640936433 \tabularnewline
X2 & 9.29567713724652 & 9.33165655232235 & 9.36763596739819 \tabularnewline
X3 & 4.08795651634294 & 4.15677037414647 & 4.22558423194999 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=34252&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]X1[/C][C]8.15501908319223[/C][C]8.21913274627828[/C][C]8.28324640936433[/C][/ROW]
[ROW][C]X2[/C][C]9.29567713724652[/C][C]9.33165655232235[/C][C]9.36763596739819[/C][/ROW]
[ROW][C]X3[/C][C]4.08795651634294[/C][C]4.15677037414647[/C][C]4.22558423194999[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=34252&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=34252&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
X18.155019083192238.219132746278288.28324640936433
X29.295677137246529.331656552322359.36763596739819
X34.087956516342944.156770374146474.22558423194999



Parameters (Session):
par1 = blue ;
Parameters (R input):
par1 = blue ;
R code (references can be found in the software module):
z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(log(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')