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 computationThu, 11 Dec 2014 17:57:56 +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/11/t1418320697sxbitr0vz3wdq9g.htm/, Retrieved Thu, 16 May 2024 09:14:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=266240, Retrieved Thu, 16 May 2024 09:14:24 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [mannenvrouwen] [2014-12-11 17:57:56] [e4db4bcf90ba40d5f3241c8a74ac70a7] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
NA 76
119 NA
NA 91
138 NA
97 NA
117 NA
NA 125
95 NA
168 NA
109 NA
115 NA
135 NA
130 NA
NA 131
NA 143
NA 134
109 NA
NA 126
117 NA
NA 155
136 NA
132 NA
NA 129
129 NA
131 NA
123 NA
125 NA
NA 112
131 NA
NA 129
NA 99
NA 114
130 NA
112 NA
122 NA
115 NA
NA 124
120 NA
119 NA
NA 123
91 NA
107 NA
118 NA
111 NA
95 NA
NA 135
108 NA
130 NA
NA 143
110 NA
131 NA
113 NA
103 NA
140 NA
125 NA
127 NA
NA 116
120 NA
NA 108
111 NA
125 NA
NA 126
NA 116
104 NA
NA 113
106 NA
NA 139
119 NA
112 NA
NA 101
NA 110
NA 115
NA 116
122 NA
NA 115
NA 109
97 NA
NA 132
NA 102
124 NA
NA 115
NA 128
NA 121
130 NA
NA 99
122 NA
126 NA
NA 141
NA 124
NA 127
114 NA
99 NA
137 NA
NA 97
108 NA
NA 138
123 NA
125 NA
106 NA
138 NA
127 NA
NA 142
94 NA
133 NA
119 NA
NA 114
NA 114
NA 123
NA 126
NA 118
NA 132
127 NA
103 NA
72 NA
113 NA
125 NA
NA 109
111 NA
105 NA
NA 122
127 NA
NA 117
NA 91
143 NA
116 NA
123 NA
101 NA
119 NA
143 NA
114 NA
108 NA
NA 128
122 NA
133 NA
94 NA
128 NA
108 NA
125 NA
NA 130
112 NA
89 NA
117 NA
142 NA
128 NA
NA 123
NA 89
125 NA
NA 112
NA 109
108 NA
NA 139
116 NA
116 NA
NA 88
128 NA
125 NA
134 NA
NA 126
NA 121
NA 106
NA 109
127 NA
NA 101
120 NA
NA 99
116 NA
NA 125
121 NA
NA 127
NA 129
155 NA
NA 113
125 NA
114 NA
116 NA
127 NA
102 NA
NA 87
110 NA
NA 115
NA 108
NA 97
119 NA
NA 130
97 NA
NA 120
NA 125
NA 131
NA 129
125 NA
108 NA
142 NA
117 NA
NA 130
NA 93
97 NA
NA 120
NA 110
NA 111
NA 130
66 NA
113 NA
NA 126
NA 114
130 NA
NA 112
126 NA
86 NA
NA 118
124 NA
120 NA
128 NA
NA 134
NA 133
NA 131
102 NA
97 NA
129 NA
115 NA
NA 116
NA 136
NA 142
112 NA
120 NA
NA 121
NA 110
NA 122
133 NA
136 NA
NA 118
NA 130
NA 114
147 NA
123 NA
121 NA
119 NA
NA 129
137 NA
63 NA
134 NA
NA 140
NA 134
121 NA
NA 105
106 NA
135 NA
NA 100
101 NA
NA 131
131 NA
129 NA
NA 120
117 NA
NA 82
106 NA
NA 125
130 NA
NA 147
NA 125
97 NA
101 NA
NA 128
97 NA
126 NA
NA 118
107 NA
NA 87
NA 156
133 NA
132 NA
NA 133
122 NA
NA 125
NA 127
125 NA
NA 99
NA 128
110 NA

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266240&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 time3 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Mannen86109120128155
Vrouwen82110.5121.5129.5156

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Mannen & 86 & 109 & 120 & 128 & 155 \tabularnewline
Vrouwen & 82 & 110.5 & 121.5 & 129.5 & 156 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266240&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]Mannen[/C][C]86[/C][C]109[/C][C]120[/C][C]128[/C][C]155[/C][/ROW]
[ROW][C]Vrouwen[/C][C]82[/C][C]110.5[/C][C]121.5[/C][C]129.5[/C][C]156[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266240&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
Mannen117.611737032904120122.388262967096
Vrouwen118.759561470616121.5124.240438529384

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Mannen & 117.611737032904 & 120 & 122.388262967096 \tabularnewline
Vrouwen & 118.759561470616 & 121.5 & 124.240438529384 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266240&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]Mannen[/C][C]117.611737032904[/C][C]120[/C][C]122.388262967096[/C][/ROW]
[ROW][C]Vrouwen[/C][C]118.759561470616[/C][C]121.5[/C][C]124.240438529384[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266240&T=2

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


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