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 19:42:59 +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/t1418586768scmcltcli05ed3j.htm/, Retrieved Thu, 31 Oct 2024 23:55:50 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267834, Retrieved Thu, 31 Oct 2024 23:55:50 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact99
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] [6993448de96b8662e47595bfdf466bf3] [Current]
- 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] [6b382800c0d3804662889dbce999b8c7]
Feedback Forum

Post a new message
Dataseries X:
NA	NA	48	NA
50	NA	NA	NA
150	NA	NA	NA
154	NA	NA	NA
NA	109	NA	NA
NA	68	NA	NA
194	NA	NA	NA
158	NA	NA	NA
159	NA	NA	NA
67	NA	NA	NA
147	NA	NA	NA
39	NA	NA	NA
100	NA	NA	NA
111	NA	NA	NA
138	NA	NA	NA
101	NA	NA	NA
NA	131	NA	NA
101	NA	NA	NA
114	NA	NA	NA
165	NA	NA	NA
114	NA	NA	NA
111	NA	NA	NA
75	NA	NA	NA
82	NA	NA	NA
121	NA	NA	NA
NA	NA	32	NA
150	NA	NA	NA
117	NA	NA	NA
NA	71	NA	NA
165	NA	NA	NA
154	NA	NA	NA
126	NA	NA	NA
149	NA	NA	NA
145	NA	NA	NA
120	NA	NA	NA
109	NA	NA	NA
132	NA	NA	NA
172	NA	NA	NA
NA	NA	169	NA
114	NA	NA	NA
156	NA	NA	NA
172	NA	NA	NA
NA	68	NA	NA
NA	89	NA	NA
167	NA	NA	NA
113	NA	NA	NA
NA	115	NA	NA
NA	78	NA	NA
NA	118	NA	NA
NA	87	NA	NA
173	NA	NA	NA
2	NA	NA	NA
NA	162	NA	NA
NA	49	NA	NA
NA	122	NA	NA
NA	96	NA	NA
NA	100	NA	NA
NA	82	NA	NA
NA	100	NA	NA
NA	115	NA	NA
NA	141	NA	NA
165	NA	NA	NA
165	NA	NA	NA
NA	110	NA	NA
118	NA	NA	NA
158	NA	NA	NA
NA	146	NA	NA
NA	NA	49	NA
NA	90	NA	NA
NA	121	NA	NA
155	NA	NA	NA
NA	104	NA	NA
NA	147	NA	NA
NA	110	NA	NA
NA	108	NA	NA
NA	113	NA	NA
NA	115	NA	NA
NA	61	NA	NA
NA	60	NA	NA
NA	109	NA	NA
NA	NA	NA	68
NA	111	NA	NA
NA	77	NA	NA
NA	73	NA	NA
151	NA	NA	NA
NA	89	NA	NA
NA	78	NA	NA
NA	110	NA	NA
220	NA	NA	NA
NA	65	NA	NA
141	NA	NA	NA
NA	117	NA	NA
122	NA	NA	NA
NA	63	NA	NA
NA	NA	44	NA
NA	52	NA	NA
NA	131	NA	NA
NA	101	NA	NA
NA	42	NA	NA
152	NA	NA	NA
107	NA	NA	NA
NA	77	NA	NA
154	NA	NA	NA
103	NA	NA	NA
NA	96	NA	NA
175	NA	NA	NA
NA	57	NA	NA
NA	112	NA	NA
143	NA	NA	NA
NA	NA	NA	49
110	NA	NA	NA
131	NA	NA	NA
167	NA	NA	NA
NA	56	NA	NA
137	NA	NA	NA
NA	86	NA	NA
121	NA	NA	NA
149	NA	NA	NA
168	NA	NA	NA
140	NA	NA	NA
NA	88	NA	NA
168	NA	NA	NA
NA	NA	94	NA
NA	NA	51	NA
NA	48	NA	NA
145	NA	NA	NA
66	NA	NA	NA
NA	85	NA	NA
109	NA	NA	NA
NA	63	NA	NA
NA	102	NA	NA
NA	162	NA	NA
NA	86	NA	NA
NA	114	NA	NA
164	NA	NA	NA
119	NA	NA	NA
126	NA	NA	NA
132	NA	NA	NA
142	NA	NA	NA
83	NA	NA	NA
NA	94	NA	NA
NA	81	NA	NA
166	NA	NA	NA
NA	110	NA	NA
NA	NA	NA	64
NA	NA	93	NA
NA	104	NA	NA
NA	NA	NA	105
NA	49	NA	NA
NA	88	NA	NA
NA	NA	NA	95
NA	102	NA	NA
NA	99	NA	NA
NA	63	NA	NA
NA	76	NA	NA
NA	109	NA	NA
NA	117	NA	NA
NA	57	NA	NA
NA	120	NA	NA
NA	73	NA	NA
NA	91	NA	NA
NA	108	NA	NA
NA	105	NA	NA
117	NA	NA	NA
NA	119	NA	NA
NA	NA	NA	31




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267834&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'Herman Ole Andreas Wold' @ wold.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
LFM_OK_2012_S50113139158220
LFM_OK_2012_B427697.5112162
LFM_NOK_2012_S32465093.594
LFM_NOK_2012_B31496695105

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
LFM_OK_2012_S & 50 & 113 & 139 & 158 & 220 \tabularnewline
LFM_OK_2012_B & 42 & 76 & 97.5 & 112 & 162 \tabularnewline
LFM_NOK_2012_S & 32 & 46 & 50 & 93.5 & 94 \tabularnewline
LFM_NOK_2012_B & 31 & 49 & 66 & 95 & 105 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267834&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]LFM_OK_2012_S[/C][C]50[/C][C]113[/C][C]139[/C][C]158[/C][C]220[/C][/ROW]
[ROW][C]LFM_OK_2012_B[/C][C]42[/C][C]76[/C][C]97.5[/C][C]112[/C][C]162[/C][/ROW]
[ROW][C]LFM_NOK_2012_S[/C][C]32[/C][C]46[/C][C]50[/C][C]93.5[/C][C]94[/C][/ROW]
[ROW][C]LFM_NOK_2012_B[/C][C]31[/C][C]49[/C][C]66[/C][C]95[/C][C]105[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267834&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267834&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
LFM_OK_2012_S50113139158220
LFM_OK_2012_B427697.5112162
LFM_NOK_2012_S32465093.594
LFM_NOK_2012_B31496695105







Boxplot Notches
Variablelower boundmedianupper bound
LFM_OK_2012_S130.734792885314139147.265207114686
LFM_OK_2012_B91.059608229785597.5103.940391770214
LFM_NOK_2012_S23.46581803597485076.5341819640252
LFM_NOK_2012_B36.32851424908646695.6714857509136

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
LFM_OK_2012_S & 130.734792885314 & 139 & 147.265207114686 \tabularnewline
LFM_OK_2012_B & 91.0596082297855 & 97.5 & 103.940391770214 \tabularnewline
LFM_NOK_2012_S & 23.4658180359748 & 50 & 76.5341819640252 \tabularnewline
LFM_NOK_2012_B & 36.3285142490864 & 66 & 95.6714857509136 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267834&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]LFM_OK_2012_S[/C][C]130.734792885314[/C][C]139[/C][C]147.265207114686[/C][/ROW]
[ROW][C]LFM_OK_2012_B[/C][C]91.0596082297855[/C][C]97.5[/C][C]103.940391770214[/C][/ROW]
[ROW][C]LFM_NOK_2012_S[/C][C]23.4658180359748[/C][C]50[/C][C]76.5341819640252[/C][/ROW]
[ROW][C]LFM_NOK_2012_B[/C][C]36.3285142490864[/C][C]66[/C][C]95.6714857509136[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267834&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267834&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
LFM_OK_2012_S130.734792885314139147.265207114686
LFM_OK_2012_B91.059608229785597.5103.940391770214
LFM_NOK_2012_S23.46581803597485076.5341819640252
LFM_NOK_2012_B36.32851424908646695.6714857509136



Parameters (Session):
par1 = 5 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
Parameters (R input):
par1 = blue ;
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')