FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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, 18 Dec 2012 16:31:01 -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/18/t135586657554os3cdu95tmknl.htm/, Retrieved Fri, 19 Apr 2024 12:52:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=201679, Retrieved Fri, 19 Apr 2024 12:52:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact87

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Boxplot and Trimmed Means] [Reddy Moores Boxp...] [2010-10-12 16:37:57] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R P   [Boxplot and Trimmed Means] [Reddy-Moores Plac...] [2010-10-13 09:46:26] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RMPD    [Notched Boxplots] [] [2010-10-15 11:13:23] [b98453cac15ba1066b407e146608df68]
- R  D        [Notched Boxplots] [notched boxplot p...] [2012-12-18 21:31:01] [1d663168d22fd6b8a85a991d8b072eec] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
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

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201679&T=0

As an alternative you can also use a QR Code:  
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' @ jenkins.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Januari949296599799992810158
Februari864186869014.592259511
Maart9402978298911031310474
April90809441960797019819
Mei9162929497311019510540
Juni897194649626.51004810281
Juli1001010082102071044410915
Augustus9548979310104.51054111183
September931395639933.51020810695
Oktober9365959698541023310834
November882089199238.594399886
December924193919597.5996310216

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201679&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Januari949296599799992810158
Februari864186869014.592259511
Maart9402978298911031310474
April90809441960797019819
Mei9162929497311019510540
Juni897194649626.51004810281
Juli1001010082102071044410915
Augustus9548979310104.51054111183
September931395639933.51020810695
Oktober9365959698541023310834
November882089199238.594399886
December924193919597.5996310216






Boxplot Notches
Variablelower boundmedianupper bound
Januari9664.5968748875297999933.40312511248
Februari8745.194109904749014.59283.80589009526
Maart9625.69122886719989110156.3087711328
April9477.0936337202896079736.90636627972
Mei9280.82447685375973110181.1755231463
Juni9334.710315740949626.59918.28968425906
Juli10026.1303669491020710387.869633051
Augustus9730.7693770106610104.510478.2306229893
September9611.232283652249933.510255.7677163478
Oktober9535.72940261469985410172.2705973853
November8978.687267440579238.59498.31273255943
December9311.705994184629597.59883.29400581538

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Januari & 9664.59687488752 & 9799 & 9933.40312511248 \tabularnewline
Februari & 8745.19410990474 & 9014.5 & 9283.80589009526 \tabularnewline
Maart & 9625.69122886719 & 9891 & 10156.3087711328 \tabularnewline
April & 9477.09363372028 & 9607 & 9736.90636627972 \tabularnewline
Mei & 9280.82447685375 & 9731 & 10181.1755231463 \tabularnewline
Juni & 9334.71031574094 & 9626.5 & 9918.28968425906 \tabularnewline
Juli & 10026.130366949 & 10207 & 10387.869633051 \tabularnewline
Augustus & 9730.76937701066 & 10104.5 & 10478.2306229893 \tabularnewline
September & 9611.23228365224 & 9933.5 & 10255.7677163478 \tabularnewline
Oktober & 9535.72940261469 & 9854 & 10172.2705973853 \tabularnewline
November & 8978.68726744057 & 9238.5 & 9498.31273255943 \tabularnewline
December & 9311.70599418462 & 9597.5 & 9883.29400581538 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201679&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]9664.59687488752[/C][C]9799[/C][C]9933.40312511248[/C][/ROW]
[ROW][C]Februari[/C][C]8745.19410990474[/C][C]9014.5[/C][C]9283.80589009526[/C][/ROW]
[ROW][C]Maart[/C][C]9625.69122886719[/C][C]9891[/C][C]10156.3087711328[/C][/ROW]
[ROW][C]April[/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]Juni[/C][C]9334.71031574094[/C][C]9626.5[/C][C]9918.28968425906[/C][/ROW]
[ROW][C]Juli[/C][C]10026.130366949[/C][C]10207[/C][C]10387.869633051[/C][/ROW]
[ROW][C]Augustus[/C][C]9730.76937701066[/C][C]10104.5[/C][C]10478.2306229893[/C][/ROW]
[ROW][C]September[/C][C]9611.23228365224[/C][C]9933.5[/C][C]10255.7677163478[/C][/ROW]
[ROW][C]Oktober[/C][C]9535.72940261469[/C][C]9854[/C][C]10172.2705973853[/C][/ROW]
[ROW][C]November[/C][C]8978.68726744057[/C][C]9238.5[/C][C]9498.31273255943[/C][/ROW]
[ROW][C]December[/C][C]9311.70599418462[/C][C]9597.5[/C][C]9883.29400581538[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201679&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201679&T=2

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot Notches
Variablelower boundmedianupper bound
Januari9664.5968748875297999933.40312511248
Februari8745.194109904749014.59283.80589009526
Maart9625.69122886719989110156.3087711328
April9477.0936337202896079736.90636627972
Mei9280.82447685375973110181.1755231463
Juni9334.710315740949626.59918.28968425906
Juli10026.1303669491020710387.869633051
Augustus9730.7693770106610104.510478.2306229893
September9611.232283652249933.510255.7677163478
Oktober9535.72940261469985410172.2705973853
November8978.687267440579238.59498.31273255943
December9311.705994184629597.59883.29400581538


Figures (Output of Computation)

Input Parameters & R Code

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