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 computationWed, 19 Dec 2012 08:32:29 -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/19/t1355923971dmd3dt8ac7m0r65.htm/, Retrieved Sat, 04 May 2024 05:22:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=201928, Retrieved Sat, 04 May 2024 05:22:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact90
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram] [Paper: Frequentie...] [2012-12-19 13:12:44] [e3c1bef87ca0a912c3f24fbd5a616a95]
- R PD  [Histogram] [Paper: Histogram ...] [2012-12-19 13:19:48] [e3c1bef87ca0a912c3f24fbd5a616a95]
- RMPD      [Notched Boxplots] [Paper: Notched Bo...] [2012-12-19 13:32:29] [ac36efda2e34453d278f09f8b1b9a536] [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




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Maurice George Kendall' @ kendall.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 & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201928&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]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201928&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201928&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'Sir Maurice George Kendall' @ kendall.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Januari94929659976998499928
Februari86418686890491729321
Maart975597829843999810313
April93369441960496279819
Mei9162929495071007410490
Juni897194649535991510281
Juli1001010082101191031910444
Augustus95489793100001021310640
September931395639883998510208
Oktober936595969842989010233
November88208919917294299832
December924193919449974710132

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Januari & 9492 & 9659 & 9769 & 9849 & 9928 \tabularnewline
Februari & 8641 & 8686 & 8904 & 9172 & 9321 \tabularnewline
Maart & 9755 & 9782 & 9843 & 9998 & 10313 \tabularnewline
April & 9336 & 9441 & 9604 & 9627 & 9819 \tabularnewline
Mei & 9162 & 9294 & 9507 & 10074 & 10490 \tabularnewline
Juni & 8971 & 9464 & 9535 & 9915 & 10281 \tabularnewline
Juli & 10010 & 10082 & 10119 & 10319 & 10444 \tabularnewline
Augustus & 9548 & 9793 & 10000 & 10213 & 10640 \tabularnewline
September & 9313 & 9563 & 9883 & 9985 & 10208 \tabularnewline
Oktober & 9365 & 9596 & 9842 & 9890 & 10233 \tabularnewline
November & 8820 & 8919 & 9172 & 9429 & 9832 \tabularnewline
December & 9241 & 9391 & 9449 & 9747 & 10132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201928&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]Januari[/C][C]9492[/C][C]9659[/C][C]9769[/C][C]9849[/C][C]9928[/C][/ROW]
[ROW][C]Februari[/C][C]8641[/C][C]8686[/C][C]8904[/C][C]9172[/C][C]9321[/C][/ROW]
[ROW][C]Maart[/C][C]9755[/C][C]9782[/C][C]9843[/C][C]9998[/C][C]10313[/C][/ROW]
[ROW][C]April[/C][C]9336[/C][C]9441[/C][C]9604[/C][C]9627[/C][C]9819[/C][/ROW]
[ROW][C]Mei[/C][C]9162[/C][C]9294[/C][C]9507[/C][C]10074[/C][C]10490[/C][/ROW]
[ROW][C]Juni[/C][C]8971[/C][C]9464[/C][C]9535[/C][C]9915[/C][C]10281[/C][/ROW]
[ROW][C]Juli[/C][C]10010[/C][C]10082[/C][C]10119[/C][C]10319[/C][C]10444[/C][/ROW]
[ROW][C]Augustus[/C][C]9548[/C][C]9793[/C][C]10000[/C][C]10213[/C][C]10640[/C][/ROW]
[ROW][C]September[/C][C]9313[/C][C]9563[/C][C]9883[/C][C]9985[/C][C]10208[/C][/ROW]
[ROW][C]Oktober[/C][C]9365[/C][C]9596[/C][C]9842[/C][C]9890[/C][C]10233[/C][/ROW]
[ROW][C]November[/C][C]8820[/C][C]8919[/C][C]9172[/C][C]9429[/C][C]9832[/C][/ROW]
[ROW][C]December[/C][C]9241[/C][C]9391[/C][C]9449[/C][C]9747[/C][C]10132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201928&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201928&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
Januari94929659976998499928
Februari86418686890491729321
Maart975597829843999810313
April93369441960496279819
Mei9162929495071007410490
Juni897194649535991510281
Juli1001010082101191031910444
Augustus95489793100001021310640
September931395639883998510208
Oktober936595969842989010233
November88208919917294299832
December924193919449974710132







Boxplot Notches
Variablelower boundmedianupper bound
Januari9668.9333333333397699869.06666666667
Februari8648.0489049159.96
Maart9729.2498439956.76
April9506.0496049701.96
Mei9096.295079917.8
Juni9297.4733333333395359772.52666666667
Juli9994.181011910243.82
Augustus9778.81000010221.2
September9660.74666666667988310105.2533333333
Oktober9687.1698429996.84
November8903.491729440.6
December9261.5066666666794499636.49333333333

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Januari & 9668.93333333333 & 9769 & 9869.06666666667 \tabularnewline
Februari & 8648.04 & 8904 & 9159.96 \tabularnewline
Maart & 9729.24 & 9843 & 9956.76 \tabularnewline
April & 9506.04 & 9604 & 9701.96 \tabularnewline
Mei & 9096.2 & 9507 & 9917.8 \tabularnewline
Juni & 9297.47333333333 & 9535 & 9772.52666666667 \tabularnewline
Juli & 9994.18 & 10119 & 10243.82 \tabularnewline
Augustus & 9778.8 & 10000 & 10221.2 \tabularnewline
September & 9660.74666666667 & 9883 & 10105.2533333333 \tabularnewline
Oktober & 9687.16 & 9842 & 9996.84 \tabularnewline
November & 8903.4 & 9172 & 9440.6 \tabularnewline
December & 9261.50666666667 & 9449 & 9636.49333333333 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201928&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]Januari[/C][C]9668.93333333333[/C][C]9769[/C][C]9869.06666666667[/C][/ROW]
[ROW][C]Februari[/C][C]8648.04[/C][C]8904[/C][C]9159.96[/C][/ROW]
[ROW][C]Maart[/C][C]9729.24[/C][C]9843[/C][C]9956.76[/C][/ROW]
[ROW][C]April[/C][C]9506.04[/C][C]9604[/C][C]9701.96[/C][/ROW]
[ROW][C]Mei[/C][C]9096.2[/C][C]9507[/C][C]9917.8[/C][/ROW]
[ROW][C]Juni[/C][C]9297.47333333333[/C][C]9535[/C][C]9772.52666666667[/C][/ROW]
[ROW][C]Juli[/C][C]9994.18[/C][C]10119[/C][C]10243.82[/C][/ROW]
[ROW][C]Augustus[/C][C]9778.8[/C][C]10000[/C][C]10221.2[/C][/ROW]
[ROW][C]September[/C][C]9660.74666666667[/C][C]9883[/C][C]10105.2533333333[/C][/ROW]
[ROW][C]Oktober[/C][C]9687.16[/C][C]9842[/C][C]9996.84[/C][/ROW]
[ROW][C]November[/C][C]8903.4[/C][C]9172[/C][C]9440.6[/C][/ROW]
[ROW][C]December[/C][C]9261.50666666667[/C][C]9449[/C][C]9636.49333333333[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201928&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201928&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
Januari9668.9333333333397699869.06666666667
Februari8648.0489049159.96
Maart9729.2498439956.76
April9506.0496049701.96
Mei9096.295079917.8
Juni9297.4733333333395359772.52666666667
Juli9994.181011910243.82
Augustus9778.81000010221.2
September9660.74666666667988310105.2533333333
Oktober9687.1698429996.84
November8903.491729440.6
December9261.5066666666794499636.49333333333



Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = grey ;
R code (references can be found in the software module):
par1 <- 'grey'
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')