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 computationMon, 18 Oct 2010 05:58:42 +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/2010/Oct/18/t128738144614qf1b524mx3wvt.htm/, Retrieved Sat, 04 May 2024 13:52:12 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=84473, Retrieved Sat, 04 May 2024 13:52:12 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [Gender - Intrinsi...] [2010-10-17 19:02:33] [aeb27d5c05332f2e597ad139ee63fbe4]
-    D    [Notched Boxplots] [Gender – Extrin...] [2010-10-18 05:58:42] [18ef3d986e8801a4b28404e69e5bf56b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
40	35
39	35
42	37
46	41
64	57
51	45
40	33
43	37
32	29
25	23
62	55
50	45
53	47
56	49
34	29
53	47
56	49
56	49
19	17
53	47
49	43
55	49
58	51
53	47
48	43
49	43
60	53
43	37
39	35
35	31
30	27
60	53
37	33
48	43
46	41
33	29
48	41
50	45
45	41
41	37
55	49
46	41
44	39
53	47
59	53
50	45
46	41
29	27
51	45
50	45
46	41
14	13
49	43
46	41
54	47
47	41
55	49
50	45
42	37
53	47
48	43
55	49
48	43
47	
24	
52	
62	
57	
41	
46	
55	
62	
49	
43	
36	
55	
51	
32	
64	
59	
40	
42	
26	
60	
53	
35	
51	
60	
47	
42	
44	
53	
56	
52	
62	
54	
43	
38

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=84473&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=84473&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=84473&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 time0 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Man & 23 & 40 & 47.5 & 53 & 64 \tabularnewline
Vrouw & 23 & 37 & 43 & 49 & 64 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=84473&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]Man[/C][C]23[/C][C]40[/C][C]47.5[/C][C]53[/C][C]64[/C][/ROW]
[ROW][C]Vrouw[/C][C]23[/C][C]37[/C][C]43[/C][C]49[/C][C]64[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=84473&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
Man45.425146673489847.549.5748533265102
Vrouw41.0847507755294344.915249224471

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Man & 45.4251466734898 & 47.5 & 49.5748533265102 \tabularnewline
Vrouw & 41.084750775529 & 43 & 44.915249224471 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=84473&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]Man[/C][C]45.4251466734898[/C][C]47.5[/C][C]49.5748533265102[/C][/ROW]
[ROW][C]Vrouw[/C][C]41.084750775529[/C][C]43[/C][C]44.915249224471[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=84473&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=84473&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
Man45.425146673489847.549.5748533265102
Vrouw41.0847507755294344.915249224471


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