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 computationSat, 13 Dec 2008 06:22:38 -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/13/t12291746409tb3hfu7hpka6iz.htm/, Retrieved Thu, 23 May 2024 07:42:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=33064, Retrieved Thu, 23 May 2024 07:42:26 +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)
-     [Central Tendency] [central tendency:...] [2008-12-12 13:03:18] [7670c7b8188a1e79d237811892660e29]
- RMPD  [Notched Boxplots] [Notched boxplots] [2008-12-13 12:48:40] [7670c7b8188a1e79d237811892660e29]
-   PD    [Notched Boxplots] [Notched boxplots:...] [2008-12-13 13:10:25] [7670c7b8188a1e79d237811892660e29]
-   PD        [Notched Boxplots] [Notched boxplots:...] [2008-12-13 13:22:38] [81dc0ee785f23261ccd6abf7aef76c2a] [Current]
- RMPD          [Variance Reduction Matrix] [VRM: Goudprijs (E...] [2008-12-13 14:11:36] [7670c7b8188a1e79d237811892660e29]
Feedback Forum

Post a new message
Dataseries X:
9732	9960	10511	10662	10625	13812	15305	17745
9103	10236	10812	10570	10407	14544	15579	19394
9155	10893	10738	10297	10463	14931	16348	20148
9308	10756	10171	10635	10556	14886	15928	20108
9394	10940	9721	10872	10646	16005	16171	18584
9948	10997	9897	10296	10702	17064	15937	18441
10177	10827	9828	10383	11353	15168	15713	18391
10002	10166	9924	10431	11346	16050	15594	19178
9728	10186	10371	10574	11451	15839	15683	18079
10002	10457	10846	10653	11964	15137	16438	18483
10063	10368	10413	10805	12574	14954	17032	19644
10190,6	10244	10709	10872	13031	15648	17696	19195




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 3 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=33064&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=33064&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=33064&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 time3 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
jaar191039351984010032.510190.6
jaar299601021110412.51086010997
jaar397219910.51039210723.510846
jaar4102961040710604.510733.510872
jaar51040710590.51102411707.513031
jaar61381214908.515152.51592217064
jaar71530515638.515932.51639317032
jaar81774518416188811951920148

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
jaar1 & 9103 & 9351 & 9840 & 10032.5 & 10190.6 \tabularnewline
jaar2 & 9960 & 10211 & 10412.5 & 10860 & 10997 \tabularnewline
jaar3 & 9721 & 9910.5 & 10392 & 10723.5 & 10846 \tabularnewline
jaar4 & 10296 & 10407 & 10604.5 & 10733.5 & 10872 \tabularnewline
jaar5 & 10407 & 10590.5 & 11024 & 11707.5 & 13031 \tabularnewline
jaar6 & 13812 & 14908.5 & 15152.5 & 15922 & 17064 \tabularnewline
jaar7 & 15305 & 15638.5 & 15932.5 & 16393 & 17032 \tabularnewline
jaar8 & 17745 & 18416 & 18881 & 19519 & 20148 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=33064&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]jaar1[/C][C]9103[/C][C]9351[/C][C]9840[/C][C]10032.5[/C][C]10190.6[/C][/ROW]
[ROW][C]jaar2[/C][C]9960[/C][C]10211[/C][C]10412.5[/C][C]10860[/C][C]10997[/C][/ROW]
[ROW][C]jaar3[/C][C]9721[/C][C]9910.5[/C][C]10392[/C][C]10723.5[/C][C]10846[/C][/ROW]
[ROW][C]jaar4[/C][C]10296[/C][C]10407[/C][C]10604.5[/C][C]10733.5[/C][C]10872[/C][/ROW]
[ROW][C]jaar5[/C][C]10407[/C][C]10590.5[/C][C]11024[/C][C]11707.5[/C][C]13031[/C][/ROW]
[ROW][C]jaar6[/C][C]13812[/C][C]14908.5[/C][C]15152.5[/C][C]15922[/C][C]17064[/C][/ROW]
[ROW][C]jaar7[/C][C]15305[/C][C]15638.5[/C][C]15932.5[/C][C]16393[/C][C]17032[/C][/ROW]
[ROW][C]jaar8[/C][C]17745[/C][C]18416[/C][C]18881[/C][C]19519[/C][C]20148[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=33064&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=33064&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
jaar191039351984010032.510190.6
jaar299601021110412.51086010997
jaar397219910.51039210723.510846
jaar4102961040710604.510733.510872
jaar51040710590.51102411707.513031
jaar61381214908.515152.51592217064
jaar71530515638.515932.51639317032
jaar81774518416188811951920148







Boxplot Notches
Variablelower boundmedianupper bound
jaar19529.16327532234984010150.8367246777
jaar210116.486743483810412.510708.5132565162
jaar310021.18524260761039210762.8147573924
jaar410455.581158316610604.510753.4188416834
jaar510514.5288019591102411533.471198041
jaar614690.235846719315152.515614.7641532807
jaar715588.367485298215932.516276.6325147018
jaar818377.91429593621888119384.0857040638

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
jaar1 & 9529.16327532234 & 9840 & 10150.8367246777 \tabularnewline
jaar2 & 10116.4867434838 & 10412.5 & 10708.5132565162 \tabularnewline
jaar3 & 10021.1852426076 & 10392 & 10762.8147573924 \tabularnewline
jaar4 & 10455.5811583166 & 10604.5 & 10753.4188416834 \tabularnewline
jaar5 & 10514.528801959 & 11024 & 11533.471198041 \tabularnewline
jaar6 & 14690.2358467193 & 15152.5 & 15614.7641532807 \tabularnewline
jaar7 & 15588.3674852982 & 15932.5 & 16276.6325147018 \tabularnewline
jaar8 & 18377.9142959362 & 18881 & 19384.0857040638 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=33064&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]jaar1[/C][C]9529.16327532234[/C][C]9840[/C][C]10150.8367246777[/C][/ROW]
[ROW][C]jaar2[/C][C]10116.4867434838[/C][C]10412.5[/C][C]10708.5132565162[/C][/ROW]
[ROW][C]jaar3[/C][C]10021.1852426076[/C][C]10392[/C][C]10762.8147573924[/C][/ROW]
[ROW][C]jaar4[/C][C]10455.5811583166[/C][C]10604.5[/C][C]10753.4188416834[/C][/ROW]
[ROW][C]jaar5[/C][C]10514.528801959[/C][C]11024[/C][C]11533.471198041[/C][/ROW]
[ROW][C]jaar6[/C][C]14690.2358467193[/C][C]15152.5[/C][C]15614.7641532807[/C][/ROW]
[ROW][C]jaar7[/C][C]15588.3674852982[/C][C]15932.5[/C][C]16276.6325147018[/C][/ROW]
[ROW][C]jaar8[/C][C]18377.9142959362[/C][C]18881[/C][C]19384.0857040638[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=33064&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=33064&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
jaar19529.16327532234984010150.8367246777
jaar210116.486743483810412.510708.5132565162
jaar310021.18524260761039210762.8147573924
jaar410455.581158316610604.510753.4188416834
jaar510514.5288019591102411533.471198041
jaar614690.235846719315152.515614.7641532807
jaar715588.367485298215932.516276.6325147018
jaar818377.91429593621888119384.0857040638



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