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 computationTue, 09 Dec 2014 11:50:07 +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/09/t1418125853mi50xdw1l517sca.htm/, Retrieved Tue, 14 May 2024 22:16:00 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264486, Retrieved Tue, 14 May 2024 22:16:00 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact76
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Percentiles] [Intrinsic Motivat...] [2010-10-12 12:10:58] [b98453cac15ba1066b407e146608df68]
- RMPD  [Kernel Density Estimation] [] [2011-10-18 22:42:23] [b98453cac15ba1066b407e146608df68]
- RMPD    [Percentiles] [] [2011-10-18 22:46:45] [b98453cac15ba1066b407e146608df68]
- RMPD      [Notched Boxplots] [] [2011-10-18 22:58:56] [b98453cac15ba1066b407e146608df68]
-    D        [Notched Boxplots] [] [2011-10-18 23:02:48] [b98453cac15ba1066b407e146608df68]
- RM D            [Notched Boxplots] [Paper: Total moti...] [2014-12-09 11:50:07] [ccc8d5d8fda28a28a4ef088d048ade85] [Current]
- R  D              [Notched Boxplots] [tot mot juist] [2014-12-15 10:48:00] [9378e2688aa9dcfd1390615d31e9d404]
-    D                [Notched Boxplots] [tot mot juist2] [2014-12-15 10:58:35] [9378e2688aa9dcfd1390615d31e9d404]
Feedback Forum

Post a new message
Dataseries X:
NA	76
NA	119
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
128	NA
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
111	NA
NA	115
112	NA
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	114
NA	123
NA	89
125	NA
NA	110
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
122	NA
NA	118
124	NA
120	NA
128	NA
NA	134
NA	133
NA	131
102	NA
97	NA
NA	93
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
114	NA
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
127	NA
99	NA
NA	126
98	NA
120	NA
118	NA
121	NA
NA	121
118	NA
NA	53
NA	121
111	NA
NA	117
107	NA
NA	129
NA	100
114	NA
NA	122
120	NA
132	NA
NA	107
NA	117
NA	110
129	NA
NA	114
121	NA
123	NA
131	NA
122	NA
NA	118
103	NA
NA	108
95	NA
NA	116
NA	131
NA	106
NA	132
NA	124
NA	114
139	NA
106	NA
106	NA
NA	135
NA	106
NA	113
NA	119
NA	130
139	NA
104	NA
117	NA
132	NA
NA	124
102	NA
NA	121
96	NA
134	NA
NA	122
152	NA
NA	112
NA	115
NA	120
NA	116
NA	141
NA	137
106	NA
NA	128
NA	91
112	NA
140	NA
132	NA
107	NA
NA	124
105	NA
114	NA
NA	112
NA	113
NA	137
NA	103
122	NA
NA	121
NA	123
NA	126
NA	108
NA	129
NA	101
115	NA
143	NA
111	NA
NA	115
NA	138
126	NA
NA	140
122	NA
112	NA
137	NA
114	NA
134	NA
NA	125
NA	106
NA	135
NA	133
NA	146
124	NA
NA	109
NA	127
128	NA
NA	128
NA	147
132	NA
NA	118
128	NA
100	NA
NA	111
132	NA
NA	138
149	NA
NA	114
125	NA
114	NA
105	NA
NA	137
137	NA
103	NA
NA	118
104	NA
135	NA
121	NA
128	NA
NA	140
92	NA
NA	145
NA	130
102	NA
NA	116
118	NA
131	NA
NA	109
NA	139
104	NA
112	NA
131	NA
75	NA
NA	109
117	NA
101	NA
141	NA
114	NA
NA	124
NA	117
103	NA
NA	106
128	NA
130	NA
NA	130
136	NA
NA	127
131	NA
NA	120
NA	126
130	NA
99	NA
140	NA
130	NA
NA	161
NA	118
121	NA
NA	139
102	NA
NA	118
120	NA
129	NA
104	NA
104	NA
111	NA
135	NA
136	NA
110	NA
NA	129
125	NA
NA	128
NA	140
145	NA
138	NA
130	NA
148	NA
77	NA
132	NA
113	NA
NA	128
136	NA
110	NA
116	NA
NA	128
155	NA
73	NA
120	NA
126	NA
NA	133
142	NA
117	NA
NA	108
NA	142
125	NA
112	NA
103	NA
134	NA
NA	121
117	NA
NA	128
135	NA




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

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







\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
TM & 86 & 109 & 120 & 130 & 155 \tabularnewline
TF & 87 & 112 & 121 & 130 & 156 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264486&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]TM[/C][C]86[/C][C]109[/C][C]120[/C][C]130[/C][C]155[/C][/ROW]
[ROW][C]TF[/C][C]87[/C][C]112[/C][C]121[/C][C]130[/C][C]156[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264486&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
TM118.017115737114120121.982884262886
TF119.069367000489121122.930632999511

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
TM & 118.017115737114 & 120 & 121.982884262886 \tabularnewline
TF & 119.069367000489 & 121 & 122.930632999511 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264486&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]TM[/C][C]118.017115737114[/C][C]120[/C][C]121.982884262886[/C][/ROW]
[ROW][C]TF[/C][C]119.069367000489[/C][C]121[/C][C]122.930632999511[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264486&T=2

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



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