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 computationWed, 09 Dec 2015 11:46:25 +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/2015/Dec/09/t1449661604misf3cu39oc5rm2.htm/, Retrieved Thu, 16 May 2024 20:06:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=285627, Retrieved Thu, 16 May 2024 20:06:58 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Notched boxplot (...] [2015-12-09 11:46:25] [a05da232bd4bc389022edd498fae0565] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1530 1
1297 1
1335 1
1282 1
1590 1
1300 1
1400 1
1255 1
1355 1
1375 1
1340 1
1380 1
1355 1
1522 1
1208 1
1405 1
1358 1
1292 1
1340 1
1400 1
1357 1
1287 1
1275 1
1270 1
1635 1
1505 1
1490 1
1485 1
1310 1
1420 1
1318 1
1432 1
1364 1
1405 1
1432 1
1207 1
1375 1
1350 1
1236 1
1250 1
1350 1
1320 1
1525 1
1570 1
1340 1
1422 1
1506 1
1215 1
1311 1
1300 1
1224 1
1350 1
1335 1
1390 1
1400 1
1225 1
1310 1
1560 2
1330 2
1222 2
1415 2
1175 2
1330 2
1485 2
1470 2
1135 2
1310 2
1154 2
1510 2
1415 2
1468 2
1390 2
1380 2
1432 2
1240 2
1195 2
1225 2
1188 2
1252 2
1315 2
1245 2
1430 2
1279 2
1245 2
1309 2
1412 2
1120 2
1220 2
1280 2
1440 2
1370 2
1192 2
1230 2
1346 2
1290 2
1165 2
1240 2
1132 2
1242 2
1270 2
1218 2
1430 2
1588 2
1320 2
1290 2
1260 2
1425 2
1226 2
1360 2
1620 2
1310 2
1250 2
1295 2
1290 2
1290 2
1275 2
1250 2
1270 2
1362 2
1300 2
1173 2
1256 2
1440 2
1180 2
1306 2
1350 2
1125 2
1165 2
1312 2
1300 2
1270 2
1335 2
1450 2
1310 2
1027 1
1235 1
1260 1
1165 1
1080 1
1127 1
1270 1
1252 1
1200 1
1290 1
1334 1
1380 1
1140 1
1243 1
1340 1
1168 1
1322 1
1249 1
1321 1
1192 1
1373 1
1170 1
1265 1
1235 1
1302 1
1241 1
1078 1
1520 1
1460 1
1075 1
1280 1
1180 1
1250 1
1190 1
1374 1
1306 1
1202 1
1240 1
1316 1
1280 1
1350 1
1180 1
1210 1
1127 1
1324 1
1210 1
1290 1
1100 1
1280 1
1175 1
1160 1
1205 1
1163 1
1022 2
1243 2
1350 2
1237 2
1204 2
1090 2
1355 2
1250 2
1076 2
1120 2
1220 2
1240 2
1220 2
1095 2
1235 2
1105 2
1405 2
1150 2
1305 2
1220 2
1296 2
1175 2
955 2
1070 2
1320 2
1060 2
1130 2
1250 2
1225 2
1180 2
1178 2
1142 2
1130 2
1185 2
1012 2
1280 2
1103 2
1408 2
1300 2
1246 2
1380 2
1350 2
1060 2
1350 2
1220 2
1110 2
1215 2
1104 2
1170 2
1120 2

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

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






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Brain & 1012 & 1207 & 1280 & 1350 & 1560 \tabularnewline
Age & 1 & 1 & 2 & 2 & 2 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285627&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]Brain[/C][C]1012[/C][C]1207[/C][C]1280[/C][C]1350[/C][C]1560[/C][/ROW]
[ROW][C]Age[/C][C]1[/C][C]1[/C][C]2[/C][C]2[/C][C]2[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285627&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
Brain1265.3236198831812801294.67638011682
Age1.8973679712110622.10263202878894

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Brain & 1265.32361988318 & 1280 & 1294.67638011682 \tabularnewline
Age & 1.89736797121106 & 2 & 2.10263202878894 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285627&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]Brain[/C][C]1265.32361988318[/C][C]1280[/C][C]1294.67638011682[/C][/ROW]
[ROW][C]Age[/C][C]1.89736797121106[/C][C]2[/C][C]2.10263202878894[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285627&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285627&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
Brain1265.3236198831812801294.67638011682
Age1.8973679712110622.10263202878894


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 <- na.omit(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')