Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationSun, 13 Aug 2017 20:21:24 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Aug/13/t1502648623r6zxcnarpn8f3xi.htm/, Retrieved Fri, 10 May 2024 09:29:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=307190, Retrieved Fri, 10 May 2024 09:29:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact83
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2017-08-13 18:21:24] [b5765487180b26865894987d1ded8bd3] [Current]
Feedback Forum

Post a new message
Dataseries X:
228 768 
227 916 
227 052 
225 264 
242 952 
242 016 
228 768 
219 960 
220 812 
220 812 
221 760 
223 464 
226 116 
226 116 
224 412
219 960 
242 952 
246 456 
241 164 
228 768 
234 072 
226 116 
229 704 
231 420 
233 208 
228 768 
229 704 
223 464 
242 952 
249 108 
243 816 
234 072 
244 668 
233 208 
243 816 
242 952 
245 604 
235 860 
246 456 
245 604 
261 504 
257 916 
243 816 
236 712 
246 456 
233 208 
242 952 
244 668 
248 256 
240 312 
244 668 
247 320 
257 064 
249 108 
238 512 
227 052 
237 660 
208 500 
222 612 
230 556 
238 512 
227 052 
227 052 
227 052 
233 208 
224 412 
212 868 
203 208 
210 216 
182 856 
199 620 
209 364 
211 152 
201 408 
202 260 
199 620 
208 500 
202 260 
189 960 
181 068 
196 104 
163 452 
184 656 
194 316 
194 316 
182 856 
172 260 
171 408 
181 068 
172 260 
155 508 
143 964 
156 360 
127 212 
153 708 
167 808 
172 260 
162 516 
150 204 
159 012 
162 516 
159 864 
133 356 
121 056 
129 852 
103 356 
130 716 
140 460 
148 404 
135 156 
122 760 
129 852 
133 356 
126 348 
99 852
88 308
98 904
69 756
101 556 
121 056




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=307190&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=307190&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=307190&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
V188169221.5235.5261
V212214462764964

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
V1 & 88 & 169 & 221.5 & 235.5 & 261 \tabularnewline
V2 & 12 & 214 & 462 & 764 & 964 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=307190&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]V1[/C][C]88[/C][C]169[/C][C]221.5[/C][C]235.5[/C][C]261[/C][/ROW]
[ROW][C]V2[/C][C]12[/C][C]214[/C][C]462[/C][C]764[/C][C]964[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=307190&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=307190&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
V188169221.5235.5261
V212214462764964







Boxplot Notches
Variablelower boundmedianupper bound
V1211.908465147155221.5231.091534852845
V2382.671516254668462541.328483745332

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
V1 & 211.908465147155 & 221.5 & 231.091534852845 \tabularnewline
V2 & 382.671516254668 & 462 & 541.328483745332 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=307190&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]V1[/C][C]211.908465147155[/C][C]221.5[/C][C]231.091534852845[/C][/ROW]
[ROW][C]V2[/C][C]382.671516254668[/C][C]462[/C][C]541.328483745332[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=307190&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=307190&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
V1211.908465147155221.5231.091534852845
V2382.671516254668462541.328483745332



Parameters (Session):
Parameters (R input):
par1 = blue ; par2 = no ;
R code (references can be found in the software module):
if(par2=='yes') {
z <- na.omit(as.data.frame(t(y)))
} else {
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,'Boxplot statistics',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower whisker',1,TRUE)
a<-table.element(a,'lower hinge',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper hinge',1,TRUE)
a<-table.element(a,'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')