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, 20 Aug 2015 04:00:55 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Aug/20/t1440039682joe783q7m19e0ic.htm/, Retrieved Thu, 16 May 2024 09:36:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=280299, Retrieved Thu, 16 May 2024 09:36:06 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact150
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] [] [2015-08-20 03:00:55] [3e99441ea7f7f69c8fa4628f6be951c3] [Current]
Feedback Forum

Post a new message
Dataseries X:
72	NA
110	NA
115	NA
86	NA
134	NA
93	NA
108	NA
117	NA
84	NA
164	NA
105	NA
109	NA
131	NA
122	NA
127	NA
139	NA
NA	123
105	NA
122	NA
NA	111
149	NA
132	NA
124	NA
124	NA
125	NA
122	NA
119	NA
NA	118
NA	102
127	NA
125	NA
92	NA
102	NA
124	NA
123	NA
107	NA
114	NA
110	NA
120	NA
NA	111
112	NA
119	NA
87	NA
103	NA
114	NA
107	NA
NA	88
131	NA
101	NA
NA	126
139	NA
NA	106
NA	127
NA	105
99	NA
NA	136
121	NA
123	NA
NA	109
108	NA
NA	104
NA	107
121	NA
121	NA
101	NA
99	NA
103	NA
NA	97
131	NA
115	NA
107	NA
NA	97
101	NA
111	NA
NA	106
NA	118
104	NA
111	NA
106	NA
102	NA
NA	92
128	NA
NA	98
120	NA
NA	111
NA	124
NA	117
NA	124
NA	89
NA	115
NA	122
NA	137
NA	117
NA	123
NA	106
NA	88
NA	131
NA	83
NA	103
NA	134
NA	115
NA	116
NA	102
NA	134
NA	122
NA	138
NA	89
NA	129
NA	115
NA	107
NA	104
NA	119
NA	121
NA	114
NA	128
NA	123
97	NA
68	NA
105	NA
120	NA
NA	105
NA	94
101	NA
118	NA
119	NA
113	NA
84	NA
139	NA
112	NA
118	NA
94	NA
115	NA
NA	139
107	NA
97	NA
121	NA
118	NA
129	NA
90	NA
124	NA
104	NA
121	NA
124	NA
104	NA
NA	66
113	NA
134	NA
122	NA
110	NA
119	NA
82	NA
121	NA
106	NA
108	NA
105	NA
98	NA
133	NA
111	NA
111	NA
84	NA
NA	124
NA	120
129	NA
121	NA
NA	116
NA	102
NA	103
NA	123
97	NA
116	NA
NA	90
NA	98
NA	119
NA	116
NA	123
NA	118
NA	151
NA	103
NA	119
106	NA
108	NA
NA	121
94	NA
83	NA
NA	106
106	NA
NA	99
NA	92
115	NA
NA	126
NA	82
NA	110
NA	116
NA	124
NA	120
NA	119
NA	104
NA	135
NA	113
NA	123
NA	89
NA	82
116	NA
NA	101
NA	107
NA	126
38	NA
NA	109
122	NA
NA	110
125	NA
NA	108
122	NA
NA	74
NA	117
NA	114
NA	118
NA	114
123	NA
130	NA
NA	129
127	NA
92	NA
NA	90
89	NA
125	NA
NA	108
NA	112
132	NA
NA	130
107	NA
112	NA
115	NA
NA	93
118	NA
NA	128
132	NA
113	NA
125	NA
108	NA
NA	143
119	NA
117	NA
113	NA
NA	121
127	NA
59	NA
NA	129
136	NA
NA	130
NA	117
NA	89
110	NA
NA	99
NA	131
96	NA
87	NA
126	NA
126	NA
124	NA
115	NA
NA	110
NA	63
90	NA
NA	121
NA	126
140	NA
NA	116
NA	92
NA	87
NA	124
NA	81
NA	116
NA	113
NA	101
NA	83
NA	152
NA	129
NA	127
NA	129
NA	118
NA	120
NA	123
NA	121
94	NA
NA	120
NA	95
120	NA
94	NA
118	NA
90	NA
115	NA
114	NA
117	NA
110	NA
113	NA
31	NA
117	NA
107	NA
NA	113
102	NA
NA	125
84	NA
109	NA
NA	118
114	NA
127	NA
103	NA
113	NA
106	NA
122	NA
110	NA
113	NA
116	NA
127	NA
116	NA
113	NA
95	NA
100	NA
91	NA
109	NA
127	NA
93	NA
128	NA
120	NA
110	NA
135	NA
99	NA
101	NA
131	NA
101	NA
101	NA
NA	111
126	NA
NA	135
NA	96
NA	112
128	NA
120	NA
95	NA
NA	116
83	NA
130	NA
118	NA
148	NA
NA	106
111	NA
NA	116
112	NA
137	NA
133	NA
NA	101
NA	122
NA	87
108	NA
136	NA
126	NA
NA	98
119	NA
99	NA
101	NA
108	NA
106	NA
132	NA
NA	99
118	NA
117	NA
NA	117
NA	120
NA	100
123	NA
96	NA
NA	106
NA	137
NA	107
NA	106
134	NA
NA	122
NA	136
117	NA
NA	108
133	NA
NA	110
129	NA
NA	120
98	NA
131	NA
NA	129
NA	137
NA	120
105	NA
NA	123
124	NA
NA	124
143	NA
NA	128
NA	114
NA	124
96	NA
NA	107
128	NA
134	NA
NA	144
106	NA
NA	118
110	NA
NA	101
NA	133
NA	132
NA	98
112	NA
92	NA
130	NA
112	NA
116	NA
136	NA
76	NA
NA	141
NA	125
NA	98
112	NA
112	NA
NA	127
105	NA
134	NA
NA	98
107	NA
NA	125
71	NA
105	NA
NA	110
92	NA
NA	136
NA	109
120	NA
113	NA
91	NA
NA	102
NA	122
NA	121
126	NA
131	NA
NA	123
NA	127
NA	116
NA	122
NA	126
NA	88
136	NA
124	NA
NA	157
113	NA
NA	117
135	NA
96	NA
114	NA
NA	113
NA	120
99	NA
90	NA
107	NA
131	NA
NA	132
NA	105
NA	125
NA	121
NA	119
NA	136
NA	141
NA	128
126	NA
NA	144
71	NA
128	NA
NA	104
123	NA
132	NA
105	NA
NA	102
NA	119
NA	151
NA	69
103	NA
122	NA
128	NA
NA	133
NA	110
NA	104
NA	137
NA	118
102	NA
98	NA
130	NA
NA	113
NA	113
NA	124
NA	129
119	NA




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=280299&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'Sir Maurice George Kendall' @ kendall.wessa.net







\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
TS & 72 & 103 & 114 & 124 & 149 \tabularnewline
TB & 81 & 104.5 & 117 & 124 & 152 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=280299&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]TS[/C][C]72[/C][C]103[/C][C]114[/C][C]124[/C][C]149[/C][/ROW]
[ROW][C]TB[/C][C]81[/C][C]104.5[/C][C]117[/C][C]124[/C][C]152[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=280299&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
TS111.99552289433114116.00447710567
TB114.94142028417117119.05857971583

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
TS & 111.99552289433 & 114 & 116.00447710567 \tabularnewline
TB & 114.94142028417 & 117 & 119.05857971583 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=280299&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]TS[/C][C]111.99552289433[/C][C]114[/C][C]116.00447710567[/C][/ROW]
[ROW][C]TB[/C][C]114.94142028417[/C][C]117[/C][C]119.05857971583[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=280299&T=2

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



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