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 computationFri, 13 Nov 2009 01:10:02 -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/13/t1258099859fxuba820tk3kbav.htm/, Retrieved Sun, 05 May 2024 10:04:21 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56425, Retrieved Sun, 05 May 2024 10:04:21 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact173
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] [WS6_Boxplot] [2009-11-06 09:24:53] [8b1aef4e7013bd33fbc2a5833375c5f5]
-    D      [Notched Boxplots] [SHw WS6] [2009-11-13 08:10:02] [d9efc2d105d810fc0b0ac636e31105d1] [Current]
Feedback Forum

Post a new message
Dataseries X:
100	100	100	100
108	109	117	111
125	173	125	132
109	91	115	108
92	124	120	105
126	130	121	125
63	82	63	66
51	82	53	56
129	196	113	134
115	116	118	116
96	146	123	111
101	102	104	102
106	153	100	111
93	119	110	102
120	153	109	122
96	137	95	101
99	147	131	115
129	152	142	136
62	84	67	67
56	76	55	59
119	161	142	131
92	129	134	110
90	104	103	96
105	144	95	108
102	171	123	118
99	140	118	110
107	120	108	109
90	130	87	95
90	247	103	116
108	154	114	117
62	38	72	62
53	57	51	53
97	172	115	113
96	163	125	114
103	130	97	105
88	163	107	104
100	110	103	102
95	133	103	103
109	156	104	115
92	157	103	104
96	127	97	101
100	167	124	117
62	89	51	63
64	53	43	55
110	187	129	126
119	202	136	136
93	137	107	104
84	151	108	100
101	128	116	109
92	140	91	98
91	203	115	114
110	160	99	114
85	161	102	100
120	210	166	146
74	154	71	85
59	70	47	57
121	269	137	146
124	176	127	132
100	156	116	113
121	210	132	137




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=56425&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=56425&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56425&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
Faill_vlaamsg629099109129
Faill_brussel53113142162210
Faill_waalsg6397108122142
Faill_belgië85100109116.5137

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Faill_vlaamsg & 62 & 90 & 99 & 109 & 129 \tabularnewline
Faill_brussel & 53 & 113 & 142 & 162 & 210 \tabularnewline
Faill_waalsg & 63 & 97 & 108 & 122 & 142 \tabularnewline
Faill_belgië & 85 & 100 & 109 & 116.5 & 137 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56425&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]Faill_vlaamsg[/C][C]62[/C][C]90[/C][C]99[/C][C]109[/C][C]129[/C][/ROW]
[ROW][C]Faill_brussel[/C][C]53[/C][C]113[/C][C]142[/C][C]162[/C][C]210[/C][/ROW]
[ROW][C]Faill_waalsg[/C][C]63[/C][C]97[/C][C]108[/C][C]122[/C][C]142[/C][/ROW]
[ROW][C]Faill_belgië[/C][C]85[/C][C]100[/C][C]109[/C][C]116.5[/C][C]137[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56425&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56425&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
Faill_vlaamsg629099109129
Faill_brussel53113142162210
Faill_waalsg6397108122142
Faill_belgië85100109116.5137







Boxplot Notches
Variablelower boundmedianupper bound
Faill_vlaamsg95.124434664895199102.875565335105
Faill_brussel132.005120977887142151.994879022113
Faill_waalsg102.900571927494108113.099428072506
Faill_belgië105.634377472146109112.365622527854

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Faill_vlaamsg & 95.1244346648951 & 99 & 102.875565335105 \tabularnewline
Faill_brussel & 132.005120977887 & 142 & 151.994879022113 \tabularnewline
Faill_waalsg & 102.900571927494 & 108 & 113.099428072506 \tabularnewline
Faill_belgië & 105.634377472146 & 109 & 112.365622527854 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56425&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]Faill_vlaamsg[/C][C]95.1244346648951[/C][C]99[/C][C]102.875565335105[/C][/ROW]
[ROW][C]Faill_brussel[/C][C]132.005120977887[/C][C]142[/C][C]151.994879022113[/C][/ROW]
[ROW][C]Faill_waalsg[/C][C]102.900571927494[/C][C]108[/C][C]113.099428072506[/C][/ROW]
[ROW][C]Faill_belgië[/C][C]105.634377472146[/C][C]109[/C][C]112.365622527854[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56425&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56425&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
Faill_vlaamsg95.124434664895199102.875565335105
Faill_brussel132.005120977887142151.994879022113
Faill_waalsg102.900571927494108113.099428072506
Faill_belgië105.634377472146109112.365622527854



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