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 computationThu, 11 Dec 2014 18:17:06 +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/t14183218362pdsa5nkfpyumon.htm/, Retrieved Thu, 16 May 2024 04:30:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=266246, Retrieved Thu, 16 May 2024 04:30:13 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact94
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [20112012] [2014-12-11 18:17:06] [e4db4bcf90ba40d5f3241c8a74ac70a7] [Current]
Feedback Forum

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




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266246&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'Gertrude Mary Cox' @ cox.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
T201191111120.5129.5155
T201282109120128156

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

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







Boxplot Notches
Variablelower boundmedianupper bound
T2011117.738024613485120.5123.261975386515
T2012117.66999612183120122.33000387817

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
T2011 & 117.738024613485 & 120.5 & 123.261975386515 \tabularnewline
T2012 & 117.66999612183 & 120 & 122.33000387817 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266246&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]T2011[/C][C]117.738024613485[/C][C]120.5[/C][C]123.261975386515[/C][/ROW]
[ROW][C]T2012[/C][C]117.66999612183[/C][C]120[/C][C]122.33000387817[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266246&T=2

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



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