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 computationSun, 14 Dec 2014 20:44:38 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/14/t1418589999tj5okmihih23byr.htm/, Retrieved Thu, 31 Oct 2024 22:57:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267861, Retrieved Thu, 31 Oct 2024 22:57:02 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact97
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Exercise 1.13] [babies] [2010-10-11 11:21:54] [b98453cac15ba1066b407e146608df68]
- RMPD  [Notched Boxplots] [] [2014-12-14 19:42:59] [6b382800c0d3804662889dbce999b8c7]
- R  D    [Notched Boxplots] [] [2014-12-14 19:54:10] [6b382800c0d3804662889dbce999b8c7]
-    D      [Notched Boxplots] [] [2014-12-14 20:10:17] [6b382800c0d3804662889dbce999b8c7]
-    D        [Notched Boxplots] [] [2014-12-14 20:20:44] [6b382800c0d3804662889dbce999b8c7]
-    D          [Notched Boxplots] [] [2014-12-14 20:37:56] [6b382800c0d3804662889dbce999b8c7]
-    D              [Notched Boxplots] [] [2014-12-14 20:44:38] [6993448de96b8662e47595bfdf466bf3] [Current]
Feedback Forum

Post a new message
Dataseries X:
NA	NA	34,10777778	NA
61,17305556	NA	NA	NA
70,07638889	NA	NA	NA
69,05555556	NA	NA	NA
NA	145,0247222	NA	NA
NA	23,41555556	NA	NA
119,8325	NA	NA	NA
147,3852778	NA	NA	NA
215,3216667	NA	NA	NA
23,54111111	NA	NA	NA
83,55583333	NA	NA	NA
29,85444444	NA	NA	NA
77,11222222	NA	NA	NA
45,80333333	NA	NA	NA
60,535	NA	NA	NA
178,2077778	NA	NA	NA
NA	159,7583333	NA	NA
57,07944444	NA	NA	NA
42,38583333	NA	NA	NA
162,8508333	NA	NA	NA
75,48972222	NA	NA	NA
94,35194444	NA	NA	NA
45,22833333	NA	NA	NA
78,10833333	NA	NA	NA
46,63722222	NA	NA	NA
NA	NA	28,87861111	NA
97,08638889	NA	NA	NA
115,8919444	NA	NA	NA
NA	32,40888889	NA	NA
50,47138889	NA	NA	NA
118,2822222	NA	NA	NA
65,82138889	NA	NA	NA
86,30472222	NA	NA	NA
89,18194444	NA	NA	NA
76,35277778	NA	NA	NA
74,96555556	NA	NA	NA
56,88416667	NA	NA	NA
71,54111111	NA	NA	NA
NA	NA	60,22472222	NA
108,5758333	NA	NA	NA
76,09222222	NA	NA	NA
64,69722222	NA	NA	NA
NA	39,95111111	NA	NA
NA	58,01527778	NA	NA
123,0486111	NA	NA	NA
70,99916667	NA	NA	NA
NA	101,7594444	NA	NA
NA	79,52611111	NA	NA
NA	97,23444444	NA	NA
NA	45,64277778	NA	NA
92,53222222	NA	NA	NA
19,48722222	NA	NA	NA
NA	140,2911111	NA	NA
NA	77,58111111	NA	NA
NA	97,81361111	NA	NA
NA	40,05305556	NA	NA
NA	80,11416667	NA	NA
NA	75,70055556	NA	NA
NA	78,95305556	NA	NA
NA	86,60055556	NA	NA
NA	95,09722222	NA	NA
49,17611111	NA	NA	NA
49,17611111	NA	NA	NA
NA	80,33722222	NA	NA
85,91027778	NA	NA	NA
68,60166667	NA	NA	NA
NA	78,97444444	NA	NA
NA	NA	52,1325	NA
NA	120,1744444	NA	NA
NA	68,5725	NA	NA
93,86972222	NA	NA	NA
NA	72,24444444	NA	NA
NA	42,99111111	NA	NA
NA	87,3275	NA	NA
NA	51,66722222	NA	NA
NA	70,98055556	NA	NA
NA	60,88333333	NA	NA
NA	50,76083333	NA	NA
NA	50,07722222	NA	NA
NA	66,70083333	NA	NA
NA	NA	NA	30,29
NA	69,92833333	NA	NA
NA	52,15055556	NA	NA
NA	75,1775	NA	NA
87,22777778	NA	NA	NA
NA	68,58333333	NA	NA
NA	71,96166667	NA	NA
NA	78,54861111	NA	NA
121,1086111	NA	NA	NA
NA	42,78388889	NA	NA
58,24583333	NA	NA	NA
NA	57,01527778	NA	NA
49,51805556	NA	NA	NA
NA	69,01388889	NA	NA
NA	NA	63,7	NA
NA	37,555	NA	NA
NA	89,65333333	NA	NA
NA	95,54333333	NA	NA
NA	48,95638889	NA	NA
55,65916667	NA	NA	NA
101,8902778	NA	NA	NA
NA	39,53611111	NA	NA
100,1288889	NA	NA	NA
67,32805556	NA	NA	NA
NA	78,22138889	NA	NA
55,45833333	NA	NA	NA
NA	58,58083333	NA	NA
NA	95,52888889	NA	NA
86,05972222	NA	NA	NA
NA	NA	NA	38,12111111
42,60833333	NA	NA	NA
22,84861111	NA	NA	NA
77,29583333	NA	NA	NA
NA	47,79555556	NA	NA
25,87611111	NA	NA	NA
NA	90,68388889	NA	NA
93,91805556	NA	NA	NA
62,32916667	NA	NA	NA
73,82555556	NA	NA	NA
113,7033333	NA	NA	NA
NA	52,33527778	NA	NA
63,70833333	NA	NA	NA
NA	NA	31,11111111	NA
NA	NA	37,98888889	NA
NA	26,69583333	NA	NA
105,1427778	NA	NA	NA
64,35055556	NA	NA	NA
NA	61,93305556	NA	NA
64,67194444	NA	NA	NA
NA	57,91027778	NA	NA
NA	75,89027778	NA	NA
NA	140,2911111	NA	NA
NA	67,67305556	NA	NA
NA	80,19444444	NA	NA
70,6675	NA	NA	NA
75,70666667	NA	NA	NA
62,64055556	NA	NA	NA
46,17	NA	NA	NA
53,42638889	NA	NA	NA
74,07138889	NA	NA	NA
NA	69,57527778	NA	NA
NA	78,32833333	NA	NA
55,84472222	NA	NA	NA
NA	99,56138889	NA	NA
NA	NA	NA	51,44083333
NA	NA	51,66666667	NA
NA	102,3936111	NA	NA
NA	NA	NA	78,23305556
NA	77,58111111	NA	NA
NA	55,45694444	NA	NA
NA	NA	NA	97,90555556
NA	75,89027778	NA	NA
NA	72,60083333	NA	NA
NA	46,99166667	NA	NA
NA	44,88944444	NA	NA
NA	82,93916667	NA	NA
NA	60,34444444	NA	NA
NA	47,89916667	NA	NA
NA	49,54	NA	NA
NA	56,25277778	NA	NA
NA	77,32694444	NA	NA
NA	91,30944444	NA	NA
NA	75,90111111	NA	NA
67,95138889	NA	NA	NA
NA	74,39666667	NA	NA
NA	NA	NA	29,26194444




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

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Delta_OK_2012_S19.4872222255.8447222270.83333333592.53222222147.3852778
Delta_OK_2012_B23.4155555652.1505555672.10305555580.33722222120.1744444
Delta_NOK_2012_S28.8786111132.60944444544.8277777856.1786111163.7
Delta_NOK_2012_B29.2619444430.2944.7809722278.2330555697.90555556

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Delta_OK_2012_S & 19.48722222 & 55.84472222 & 70.833333335 & 92.53222222 & 147.3852778 \tabularnewline
Delta_OK_2012_B & 23.41555556 & 52.15055556 & 72.103055555 & 80.33722222 & 120.1744444 \tabularnewline
Delta_NOK_2012_S & 28.87861111 & 32.609444445 & 44.82777778 & 56.17861111 & 63.7 \tabularnewline
Delta_NOK_2012_B & 29.26194444 & 30.29 & 44.78097222 & 78.23305556 & 97.90555556 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267861&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]Delta_OK_2012_S[/C][C]19.48722222[/C][C]55.84472222[/C][C]70.833333335[/C][C]92.53222222[/C][C]147.3852778[/C][/ROW]
[ROW][C]Delta_OK_2012_B[/C][C]23.41555556[/C][C]52.15055556[/C][C]72.103055555[/C][C]80.33722222[/C][C]120.1744444[/C][/ROW]
[ROW][C]Delta_NOK_2012_S[/C][C]28.87861111[/C][C]32.609444445[/C][C]44.82777778[/C][C]56.17861111[/C][C]63.7[/C][/ROW]
[ROW][C]Delta_NOK_2012_B[/C][C]29.26194444[/C][C]30.29[/C][C]44.78097222[/C][C]78.23305556[/C][C]97.90555556[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267861&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267861&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
Delta_OK_2012_S19.4872222255.8447222270.83333333592.53222222147.3852778
Delta_OK_2012_B23.4155555652.1505555672.10305555580.33722222120.1744444
Delta_NOK_2012_S28.8786111132.60944444544.8277777856.1786111163.7
Delta_NOK_2012_B29.2619444430.2944.7809722278.2330555697.90555556







Boxplot Notches
Variablelower boundmedianupper bound
Delta_OK_2012_S64.094893645666170.83333333577.5717730243339
Delta_OK_2012_B67.060467333143372.10305555577.1456437768567
Delta_NOK_2012_S31.661702895167444.8277777857.9938526648326
Delta_NOK_2012_B13.856152874265344.7809722275.7057915657347

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Delta_OK_2012_S & 64.0948936456661 & 70.833333335 & 77.5717730243339 \tabularnewline
Delta_OK_2012_B & 67.0604673331433 & 72.103055555 & 77.1456437768567 \tabularnewline
Delta_NOK_2012_S & 31.6617028951674 & 44.82777778 & 57.9938526648326 \tabularnewline
Delta_NOK_2012_B & 13.8561528742653 & 44.78097222 & 75.7057915657347 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267861&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]Delta_OK_2012_S[/C][C]64.0948936456661[/C][C]70.833333335[/C][C]77.5717730243339[/C][/ROW]
[ROW][C]Delta_OK_2012_B[/C][C]67.0604673331433[/C][C]72.103055555[/C][C]77.1456437768567[/C][/ROW]
[ROW][C]Delta_NOK_2012_S[/C][C]31.6617028951674[/C][C]44.82777778[/C][C]57.9938526648326[/C][/ROW]
[ROW][C]Delta_NOK_2012_B[/C][C]13.8561528742653[/C][C]44.78097222[/C][C]75.7057915657347[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267861&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267861&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
Delta_OK_2012_S64.094893645666170.83333333577.5717730243339
Delta_OK_2012_B67.060467333143372.10305555577.1456437768567
Delta_NOK_2012_S31.661702895167444.8277777857.9938526648326
Delta_NOK_2012_B13.856152874265344.7809722275.7057915657347



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