FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationSun, 06 Jan 2008 10:05:22 -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/Jan/06/t1199639179ebzh2654e1tlsqn.htm/, Retrieved Sat, 04 May 2024 22:30:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14668, Retrieved Sat, 04 May 2024 22:30:09 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsHypothesis testing Q1
Estimated Impact167

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [CVWS3Q1] [2008-01-06 17:05:22] [b523c8d839cc24a05ea912c062a47207] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
59.9	8,6	13,5	-12.7
59.9	8,6	16,2	-2.4
59.9	8,5	17,6	7.1
60.9	8,4	15,8	-3.9
60.9	8,3	17,6	9.5
60.9	8,3	15,2	5
61.1	8,2	15,9	-16.1
61.1	8,2	12,0	-10.8
61.1	8,1	13,3	7
60.2	8,0	14,8	13.6
60.2	8,0	16,1	8.1
60.2	7,9	16,9	-8.1
60.1	7,8	17,6	4.9
60.1	7,8	13,9	-0.8
60.1	7,8	10,0	4.3
59.7	7,8	7,6	4
59.7	7,8	7,1	1.5
59.7	7,8	8,1	5.4
60.5	7,8	8,1	-11.3
60.5	7,8	7,7	-16.4
60.5	7,8	4,0	-2
59.5	7,9	1,4	8.9
59.5	7,9	0,3	-7.2
59.5	7,9	-1,0	-18
59.5	8,0	-1,9	1.3
59.5	8,0	-1,5	6.3
59.5	8,0	-0,2	-6
59.7	8,1	3,4	2.8
59.7	8,1	3,0	2
59.7	8,2	4,1	5.1
60.4	8,3	3,4	-7.6
60.4	8,3	3,2	-18.6
60.4	8,3	6,1	5.8
60	8,4	5,8	20.3
60	8,5	6,2	0.7
60	8,5	5,8	-11.2
59	8,6	5,9	-5.7
59	8,6	6,7	-0.1
59	8,7	5,9	3.4
59.3	8,6	3,8	3.3
59.3	8,7	1,7	-1.2
59.3	8,7	1,4	4.2
59.7	8,6	1,8	-8.8
59.7	8,6	3,0	-25.3
59.7	8,7	3,6	8.5
60.4	8,7	4,8	14.5
60.4	8,7	4,3	-3.1
60.4	8,7	4,2	-10.4
59.9	8,7	2,9	-2.9
59.9	8,7	4,9	0.3
59.9	8,8	7,2	22.6
60.5	8,8	8,7	15.4
60.5	8,8	9,1	9
60.5	8,8	8,9	29.1
60.4	8,8	9,0	2.8
60.4	8,8	11,6	-3.8
60.4	8,8	9,6	27.7
60.6	8,8	9,1	28.9
60.6	8,9	9,2	26.5
60.6	8,9	10,8	19.8
60.9	8,9	11,0	13.2
60.9	8,9	8,5	14.1
60.9	9,0	6,5	34.1
61	8,9	7,2	30
61	8,9	7,8	21.8
61	8,9	8,7	32.1
61.2	8,8	7,8	5.3
61.2	8,8	7,5	3
61.2	8,8	7,7	17.1
61.2	8,8	7,5	26.3
61.2	8,7	8,3	38.1
61.2	8,6	7,9	19.5
60.3	8,7	10,4	38
60.3	8,6	11,5	35.5
60.3	8,6	14,0	78.6
60.4	8,4	11,9	62.2
60.4	8,4	11,9	76.9
60.4	8,3	10,3	104.9
61.2	8,1	11,3	32.2
61.2	8,1	9,9	42.5
61.2	8,0	8,9	64.3
62.1	8,0	9,2	74.9
62.1	7,9	8,8	75.4
62.1	7,8	6,7	43
61.7	7,7	7,1	58.7
61.7	7,6	6,6	55.4
61.7	7,6	7,2	76.6
61.6	7,5	5,0	63.3
61.6	7,5	5,3	78.9
61.6	7,4	6,3	82.7

Tables (Output of Computation)





Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132

\begin{tabular}{lllllllll}
\hline
Summary of compuational 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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14668&T=0

[TABLE]
[ROW][C]Summary of compuational 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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14668&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14668&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 compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
WG5959.960.46162.1
WL7.488.48.79
EA-1.94.97.710.417.6
TI-25.3-1.26.6529.164.3

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WG & 59 & 59.9 & 60.4 & 61 & 62.1 \tabularnewline
WL & 7.4 & 8 & 8.4 & 8.7 & 9 \tabularnewline
EA & -1.9 & 4.9 & 7.7 & 10.4 & 17.6 \tabularnewline
TI & -25.3 & -1.2 & 6.65 & 29.1 & 64.3 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14668&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]WG[/C][C]59[/C][C]59.9[/C][C]60.4[/C][C]61[/C][C]62.1[/C][/ROW]
[ROW][C]WL[/C][C]7.4[/C][C]8[/C][C]8.4[/C][C]8.7[/C][C]9[/C][/ROW]
[ROW][C]EA[/C][C]-1.9[/C][C]4.9[/C][C]7.7[/C][C]10.4[/C][C]17.6[/C][/ROW]
[ROW][C]TI[/C][C]-25.3[/C][C]-1.2[/C][C]6.65[/C][C]29.1[/C][C]64.3[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14668&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14668&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
WG5959.960.46162.1
WL7.488.48.79
EA-1.94.97.710.417.6
TI-25.3-1.26.6529.164.3






Boxplot Notches
Variablelower boundmedianupper bound
WG60.216798714220960.460.5832012857791
WL8.283417363595138.48.51658263640488
EA6.783993571104567.78.61600642889544
TI1.60363730990336.6511.6963626900967

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
WG & 60.2167987142209 & 60.4 & 60.5832012857791 \tabularnewline
WL & 8.28341736359513 & 8.4 & 8.51658263640488 \tabularnewline
EA & 6.78399357110456 & 7.7 & 8.61600642889544 \tabularnewline
TI & 1.6036373099033 & 6.65 & 11.6963626900967 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14668&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]WG[/C][C]60.2167987142209[/C][C]60.4[/C][C]60.5832012857791[/C][/ROW]
[ROW][C]WL[/C][C]8.28341736359513[/C][C]8.4[/C][C]8.51658263640488[/C][/ROW]
[ROW][C]EA[/C][C]6.78399357110456[/C][C]7.7[/C][C]8.61600642889544[/C][/ROW]
[ROW][C]TI[/C][C]1.6036373099033[/C][C]6.65[/C][C]11.6963626900967[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14668&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14668&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
WG60.216798714220960.460.5832012857791
WL8.283417363595138.48.51658263640488
EA6.783993571104567.78.61600642889544
TI1.60363730990336.6511.6963626900967


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
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')