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, 10 Dec 2014 14:00:51 +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/10/t1418220065tpug89fg4l0v34r.htm/, Retrieved Sun, 19 May 2024 15:26:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265209, Retrieved Sun, 19 May 2024 15:26:46 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Boxplot extrinsie...] [2014-12-10 14:00:51] [abae100319030711995379e8f3c2e274] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
62	50
71	54
54	73
65	73
52	75
84	72
42	70
66	81
65	71
78	61
66	76
61	70
71	60
69	70
72	76
68	67
70	76
68	75
67	63
72	70
69	75
71	60
62	73
64	64
58	59
52	64
59	60
68	78
76	67
65	66
59	68
69	66
63	73
75	72
63	59
60	78
73	68
63	73
70	65
66	71
63	76
64	63
61	59
62	73
61	66
66	62
56	69
59	57
71	63
71	65
64	47
66	68
62	71
65	68
68	48
60	60
65	59
68	79
64	59
74	71
69	57
68	66
72	63
67	58
66	48
51	73
56	61
67	68
69	62
56	62
55	69
67	58
76	58
64	72
68	62
64	65
65	69
71	66
63	66
60	55
72	72
70	62
61	64
61	64
62	68
71	70
51	69
56	73
70	74
73	78
76	75
52	65
57	78
60	78
60	70
62	63
59	63
61	67
69	66
59	62
66	73
67	69
75	84
69	58
58	57
60	68
74	69
55	60
63	66
68	81
62	72
72	74
62	65
75	51
58	80
47	74
19	70
50	69
79	55
71	71
48	
74	
66	
71	
53	
60	
70	
69	
59	
72	
71	
74	
80	
73	
67	
61	
74	
32	
69	
64	
59	
78	
60	
68	
73	
67	
65	
74	
55	
49	
53	
64	
57	
67	
70	
75	
65	
65

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

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






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Man & 47 & 60 & 65 & 70 & 84 \tabularnewline
Vrouw & 47 & 62 & 68 & 73 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265209&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]47[/C][C]60[/C][C]65[/C][C]70[/C][C]84[/C][/ROW]
[ROW][C]Vrouw[/C][C]47[/C][C]62[/C][C]68[/C][C]73[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265209&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
Man63.74301949100236566.2569805089977
Vrouw66.61732144010266869.3826785598974

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Man & 63.7430194910023 & 65 & 66.2569805089977 \tabularnewline
Vrouw & 66.6173214401026 & 68 & 69.3826785598974 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265209&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]63.7430194910023[/C][C]65[/C][C]66.2569805089977[/C][/ROW]
[ROW][C]Vrouw[/C][C]66.6173214401026[/C][C]68[/C][C]69.3826785598974[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265209&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265209&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
Man63.74301949100236566.2569805089977
Vrouw66.61732144010266869.3826785598974


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
par1 = grey ;
R code (references can be found in the software module):
par1 <- 'grey'
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')