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 computationFri, 12 Dec 2014 12:02:57 +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/12/t1418385793bhyqpjb7sj5zxbd.htm/, Retrieved Thu, 16 May 2024 10:59:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=266576, Retrieved Thu, 16 May 2024 10:59:13 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [] [2014-12-11 20:37:16] [6b382800c0d3804662889dbce999b8c7]
- R  D  [Notched Boxplots] [] [2014-12-12 11:06:52] [6b382800c0d3804662889dbce999b8c7]
- R  D    [Notched Boxplots] [] [2014-12-12 11:10:16] [6b382800c0d3804662889dbce999b8c7]
-    D      [Notched Boxplots] [] [2014-12-12 11:37:02] [6b382800c0d3804662889dbce999b8c7]
-    D        [Notched Boxplots] [] [2014-12-12 12:00:48] [6b382800c0d3804662889dbce999b8c7]
-    D            [Notched Boxplots] [] [2014-12-12 12:02:57] [6993448de96b8662e47595bfdf466bf3] [Current]
Feedback Forum

Post a new message

Dataset

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

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=266576&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=266576&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266576&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
OK_LFM3987.5111.5142.5220
NOK_LFM314857.594105

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
OK_LFM & 39 & 87.5 & 111.5 & 142.5 & 220 \tabularnewline
NOK_LFM & 31 & 48 & 57.5 & 94 & 105 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266576&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]OK_LFM[/C][C]39[/C][C]87.5[/C][C]111.5[/C][C]142.5[/C][C]220[/C][/ROW]
[ROW][C]NOK_LFM[/C][C]31[/C][C]48[/C][C]57.5[/C][C]94[/C][C]105[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266576&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266576&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
OK_LFM3987.5111.5142.5220
NOK_LFM314857.594105






Boxplot Notches
Variablelower boundmedianupper bound
OK_LFM104.451479251868111.5118.548520748132
NOK_LFM38.07545293780557.576.924547062195

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
OK_LFM & 104.451479251868 & 111.5 & 118.548520748132 \tabularnewline
NOK_LFM & 38.075452937805 & 57.5 & 76.924547062195 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266576&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]OK_LFM[/C][C]104.451479251868[/C][C]111.5[/C][C]118.548520748132[/C][/ROW]
[ROW][C]NOK_LFM[/C][C]38.075452937805[/C][C]57.5[/C][C]76.924547062195[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266576&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266576&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
OK_LFM104.451479251868111.5118.548520748132
NOK_LFM38.07545293780557.576.924547062195


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