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 computationThu, 20 Dec 2012 08:04:23 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/20/t13560086898yjrvdkr509xu95.htm/, Retrieved Thu, 25 Apr 2024 19:47:44 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=202658, Retrieved Thu, 25 Apr 2024 19:47:44 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact114
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Notched boxplot_m...] [2012-12-20 13:04:23] [c0adb5424a6206062efe0bb832d80689] [Current]
Feedback Forum

Post a new message
Dataseries X:
9492	8641	9793	9603	9238	9535	10295	9941	9984	9563	8872	9302
9215	8834	9998	9604	9507	9718	10095	9583	9883	9365	8919	9449
9769	9321	9939	9336	10195	9464	10010	10213	9563	9890	9305	9391
9928	8686	9843	9627	10074	9503	10119	10000	9313	9866	9172	9241
9659	8904	9755	9080	9435	8971	10063	9793	9454	9759	8820	9403
9676	8642	9402	9610	9294	9448	10319	9548	9801	9596	8923	9746
9829	9125	9782	9441	9162	9915	10444	10209	9985	9842	9429	10132
9849	9172	10313	9819	9955	10048	10082	10541	10208	10233	9439	9963
10158	9225	10474	9757	10490	10281	10444	10640	10695	10786	9832	9747
10411	9511	10402	9701	10540	10112	10915	11183	10384	10834	9886	10216




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net

\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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=202658&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=202658&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=202658&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 time2 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Jan949296599799992810158
Feb864186869014.592259511
Maa9402978298911031310474
Apr90809441960797019819
Mei9162929497311019510540
Jun897194649626.51004810281
Jul1001010082102071044410915
Aug9548979310104.51054111183
Sep931395639933.51020810695
Okt9365959698541023310834
Nov882089199238.594399886
Dec924193919597.5996310216

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Jan & 9492 & 9659 & 9799 & 9928 & 10158 \tabularnewline
Feb & 8641 & 8686 & 9014.5 & 9225 & 9511 \tabularnewline
Maa & 9402 & 9782 & 9891 & 10313 & 10474 \tabularnewline
Apr & 9080 & 9441 & 9607 & 9701 & 9819 \tabularnewline
Mei & 9162 & 9294 & 9731 & 10195 & 10540 \tabularnewline
Jun & 8971 & 9464 & 9626.5 & 10048 & 10281 \tabularnewline
Jul & 10010 & 10082 & 10207 & 10444 & 10915 \tabularnewline
Aug & 9548 & 9793 & 10104.5 & 10541 & 11183 \tabularnewline
Sep & 9313 & 9563 & 9933.5 & 10208 & 10695 \tabularnewline
Okt & 9365 & 9596 & 9854 & 10233 & 10834 \tabularnewline
Nov & 8820 & 8919 & 9238.5 & 9439 & 9886 \tabularnewline
Dec & 9241 & 9391 & 9597.5 & 9963 & 10216 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=202658&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]Jan[/C][C]9492[/C][C]9659[/C][C]9799[/C][C]9928[/C][C]10158[/C][/ROW]
[ROW][C]Feb[/C][C]8641[/C][C]8686[/C][C]9014.5[/C][C]9225[/C][C]9511[/C][/ROW]
[ROW][C]Maa[/C][C]9402[/C][C]9782[/C][C]9891[/C][C]10313[/C][C]10474[/C][/ROW]
[ROW][C]Apr[/C][C]9080[/C][C]9441[/C][C]9607[/C][C]9701[/C][C]9819[/C][/ROW]
[ROW][C]Mei[/C][C]9162[/C][C]9294[/C][C]9731[/C][C]10195[/C][C]10540[/C][/ROW]
[ROW][C]Jun[/C][C]8971[/C][C]9464[/C][C]9626.5[/C][C]10048[/C][C]10281[/C][/ROW]
[ROW][C]Jul[/C][C]10010[/C][C]10082[/C][C]10207[/C][C]10444[/C][C]10915[/C][/ROW]
[ROW][C]Aug[/C][C]9548[/C][C]9793[/C][C]10104.5[/C][C]10541[/C][C]11183[/C][/ROW]
[ROW][C]Sep[/C][C]9313[/C][C]9563[/C][C]9933.5[/C][C]10208[/C][C]10695[/C][/ROW]
[ROW][C]Okt[/C][C]9365[/C][C]9596[/C][C]9854[/C][C]10233[/C][C]10834[/C][/ROW]
[ROW][C]Nov[/C][C]8820[/C][C]8919[/C][C]9238.5[/C][C]9439[/C][C]9886[/C][/ROW]
[ROW][C]Dec[/C][C]9241[/C][C]9391[/C][C]9597.5[/C][C]9963[/C][C]10216[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=202658&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=202658&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
Jan949296599799992810158
Feb864186869014.592259511
Maa9402978298911031310474
Apr90809441960797019819
Mei9162929497311019510540
Jun897194649626.51004810281
Jul1001010082102071044410915
Aug9548979310104.51054111183
Sep931395639933.51020810695
Okt9365959698541023310834
Nov882089199238.594399886
Dec924193919597.5996310216







Boxplot Notches
Variablelower boundmedianupper bound
Jan9664.5968748875297999933.40312511248
Feb8745.194109904749014.59283.80589009526
Maa9625.69122886719989110156.3087711328
Apr9477.0936337202896079736.90636627972
Mei9280.82447685375973110181.1755231463
Jun9334.710315740949626.59918.28968425906
Jul10026.1303669491020710387.869633051
Aug9730.7693770106610104.510478.2306229893
Sep9611.232283652249933.510255.7677163478
Okt9535.72940261469985410172.2705973853
Nov8978.687267440579238.59498.31273255943
Dec9311.705994184629597.59883.29400581538

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Jan & 9664.59687488752 & 9799 & 9933.40312511248 \tabularnewline
Feb & 8745.19410990474 & 9014.5 & 9283.80589009526 \tabularnewline
Maa & 9625.69122886719 & 9891 & 10156.3087711328 \tabularnewline
Apr & 9477.09363372028 & 9607 & 9736.90636627972 \tabularnewline
Mei & 9280.82447685375 & 9731 & 10181.1755231463 \tabularnewline
Jun & 9334.71031574094 & 9626.5 & 9918.28968425906 \tabularnewline
Jul & 10026.130366949 & 10207 & 10387.869633051 \tabularnewline
Aug & 9730.76937701066 & 10104.5 & 10478.2306229893 \tabularnewline
Sep & 9611.23228365224 & 9933.5 & 10255.7677163478 \tabularnewline
Okt & 9535.72940261469 & 9854 & 10172.2705973853 \tabularnewline
Nov & 8978.68726744057 & 9238.5 & 9498.31273255943 \tabularnewline
Dec & 9311.70599418462 & 9597.5 & 9883.29400581538 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=202658&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]Jan[/C][C]9664.59687488752[/C][C]9799[/C][C]9933.40312511248[/C][/ROW]
[ROW][C]Feb[/C][C]8745.19410990474[/C][C]9014.5[/C][C]9283.80589009526[/C][/ROW]
[ROW][C]Maa[/C][C]9625.69122886719[/C][C]9891[/C][C]10156.3087711328[/C][/ROW]
[ROW][C]Apr[/C][C]9477.09363372028[/C][C]9607[/C][C]9736.90636627972[/C][/ROW]
[ROW][C]Mei[/C][C]9280.82447685375[/C][C]9731[/C][C]10181.1755231463[/C][/ROW]
[ROW][C]Jun[/C][C]9334.71031574094[/C][C]9626.5[/C][C]9918.28968425906[/C][/ROW]
[ROW][C]Jul[/C][C]10026.130366949[/C][C]10207[/C][C]10387.869633051[/C][/ROW]
[ROW][C]Aug[/C][C]9730.76937701066[/C][C]10104.5[/C][C]10478.2306229893[/C][/ROW]
[ROW][C]Sep[/C][C]9611.23228365224[/C][C]9933.5[/C][C]10255.7677163478[/C][/ROW]
[ROW][C]Okt[/C][C]9535.72940261469[/C][C]9854[/C][C]10172.2705973853[/C][/ROW]
[ROW][C]Nov[/C][C]8978.68726744057[/C][C]9238.5[/C][C]9498.31273255943[/C][/ROW]
[ROW][C]Dec[/C][C]9311.70599418462[/C][C]9597.5[/C][C]9883.29400581538[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=202658&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=202658&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
Jan9664.5968748875297999933.40312511248
Feb8745.194109904749014.59283.80589009526
Maa9625.69122886719989110156.3087711328
Apr9477.0936337202896079736.90636627972
Mei9280.82447685375973110181.1755231463
Jun9334.710315740949626.59918.28968425906
Jul10026.1303669491020710387.869633051
Aug9730.7693770106610104.510478.2306229893
Sep9611.232283652249933.510255.7677163478
Okt9535.72940261469985410172.2705973853
Nov8978.687267440579238.59498.31273255943
Dec9311.705994184629597.59883.29400581538



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