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, 13 Dec 2015 13:47:18 +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/13/t1450014477crcix8rtcticxak.htm/, Retrieved Thu, 16 May 2024 06:38:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=286179, Retrieved Thu, 16 May 2024 06:38:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsPaper: hypothese 3 ouder dan 50 jaar
Estimated Impact122
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Paper: hypothese ...] [2015-12-13 13:47:18] [7cb4ad5893b42aea13a8d26b93b7fe74] [Current]
Feedback Forum

Post a new message
Dataseries X:
62065 64281
61943 64023
62361 63935
62919 64387
62881 64161
62892 64011
62591 63685
62417 63522
62172 63541
63113 65070
63077 65357
62438 64281
62384 64152
62506 64043
62935 63966
64433 65040
64533 64640
64184 64179
63911 63633
63673 63327
63290 63237
64652 64793
64516 64622
63995 63615
64536 63319
64776 63261
65144 62699
65238 61956
65421 62069
65821 62179
66298 62327
66523 62526
67143 63055
68835 65277
68984 65783
69170 65353
69844 65583
70528 65950
71979 66634
73608 67836
73508 67700
73973 67463
73899 67412
73566 67308
73859 67881
75287 69652
75308 69733
74871 68891
75337 68994
75449 69021
76211 69072
79371 70283
80224 70795
81014 71111
80253 70274
79169 69220
79214 69841
79783 71275
79523 71295
77265 69073
76986 68752




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286179&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'George Udny Yule' @ yule.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
WLH_50__M6194363290662987487181014
WLH_50__V6195663685650406875271295

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WLH_50__M & 61943 & 63290 & 66298 & 74871 & 81014 \tabularnewline
WLH_50__V & 61956 & 63685 & 65040 & 68752 & 71295 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=286179&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]WLH_50__M[/C][C]61943[/C][C]63290[/C][C]66298[/C][C]74871[/C][C]81014[/C][/ROW]
[ROW][C]WLH_50__V[/C][C]61956[/C][C]63685[/C][C]65040[/C][C]68752[/C][C]71295[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=286179&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
WLH_50__M63955.18373172556629868640.8162682745
WLH_50__V64014.95466442046504066065.0453355796

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
WLH_50__M & 63955.1837317255 & 66298 & 68640.8162682745 \tabularnewline
WLH_50__V & 64014.9546644204 & 65040 & 66065.0453355796 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=286179&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]WLH_50__M[/C][C]63955.1837317255[/C][C]66298[/C][C]68640.8162682745[/C][/ROW]
[ROW][C]WLH_50__V[/C][C]64014.9546644204[/C][C]65040[/C][C]66065.0453355796[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=286179&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286179&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
WLH_50__M63955.18373172556629868640.8162682745
WLH_50__V64014.95466442046504066065.0453355796



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