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 computationWed, 10 Dec 2014 18:54:05 +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/t14182376519qudsru35sxqj1j.htm/, Retrieved Fri, 17 May 2024 12:24:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265581, Retrieved Fri, 17 May 2024 12:24:55 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact71
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [] [2014-12-10 18:31:42] [a30ebaf79f34e9d2b1bcdd5006125d11]
- R       [Notched Boxplots] [] [2014-12-10 18:54:05] [fbbeb95c33c8ff026e5ecae513ae1a4b] [Current]
Feedback Forum

Post a new message
Dataseries X:
NA	96
NA	70
NA	88
NA	114
NA	69
NA	176
NA	114
NA	121
NA	110
NA	158
NA	116
NA	181
NA	77
NA	141
NA	35
80	NA
NA	152
NA	97
99	NA
NA	84
NA	68
NA	101
NA	107
NA	88
NA	112
NA	171
137	NA
77	NA
NA	66
NA	93
NA	105
NA	131
NA	102
NA	161
NA	120
NA	127
NA	77
108	NA
NA	85
NA	168
NA	48
NA	152
NA	75
NA	107
62	NA
NA	121
NA	124
72	NA
NA	40
58	NA
97	NA
88	NA
NA	126
104	NA
NA	148
NA	146
80	NA
NA	97
25	NA
99	NA
NA	118
NA	58
NA	63
NA	139
NA	50
60	NA
NA	152
NA	142
NA	94
66	NA
NA	127
NA	67
90	NA
75	NA
NA	128
NA	146
69	NA
NA	186
81	NA
NA	85
54	NA
46	NA
106	NA
34	NA
60	NA
95	NA
57	NA
62	NA
36	NA
56	NA
54	NA
64	NA
76	NA
98	NA
88	NA
35	NA
102	NA
61	NA
80	NA
49	NA
78	NA
90	NA
45	NA
55	NA
96	NA
43	NA
52	NA
60	NA
54	NA
51	NA
51	NA
38	NA
NA	41
NA	146
NA	182
NA	192
263	NA
35	NA
NA	439
NA	214
NA	341
NA	58
NA	292
NA	85
NA	200
NA	158
NA	199
NA	297
227	NA
NA	108
NA	86
NA	302
NA	148
NA	178
NA	120
NA	207
NA	157
NA	128
NA	296
NA	323
79	NA
NA	70
NA	146
NA	246
NA	196
NA	199
NA	127
NA	153
NA	299
NA	228
NA	190
NA	180
NA	212
NA	269
130	NA
179	NA
NA	243
NA	190
299	NA
121	NA
137	NA
305	NA
NA	157
NA	96
183	NA
52	NA
238	NA
40	NA
226	NA
190	NA
214	NA
145	NA
119	NA
NA	222
NA	222
159	NA
NA	165
NA	249
125	NA
NA	122
186	NA
148	NA
NA	274
172	NA
84	NA
168	NA
102	NA
106	NA
2	NA
139	NA
95	NA
130	NA
72	NA
141	NA
113	NA
206	NA
NA	268
175	NA
77	NA
125	NA
NA	255
111	NA
NA	132
211	NA
NA	92
76	NA
NA	171
83	NA
266	NA
186	NA
50	NA
NA	117
NA	219
246	NA
NA	279
NA	148
137	NA
NA	181
98	NA
226	NA
NA	234
138	NA
NA	85
NA	66
NA	236
106	NA
NA	135
122	NA
NA	218
NA	199
NA	112
NA	278
94	NA
NA	113
NA	84
NA	86
62	NA
NA	222
NA	167
82	NA
NA	207
184	NA
83	NA
183	NA
89	NA
225	NA
NA	237
NA	102
NA	221
NA	128
NA	91
NA	198
204	NA
158	NA
NA	138
226	NA
44	NA
NA	196
83	NA
79	NA
52	NA
105	NA
116	NA
83	NA
196	NA
153	NA
157	NA
75	NA
106	NA
58	NA
75	NA
74	NA
185	NA
265	NA
131	NA
NA	139
196	NA
78	NA




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

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
BLOG_B26395146.5266
BLOG_S3597140198341

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
BLOG_B & 2 & 63 & 95 & 146.5 & 266 \tabularnewline
BLOG_S & 35 & 97 & 140 & 198 & 341 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265581&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]BLOG_B[/C][C]2[/C][C]63[/C][C]95[/C][C]146.5[/C][C]266[/C][/ROW]
[ROW][C]BLOG_S[/C][C]35[/C][C]97[/C][C]140[/C][C]198[/C][C]341[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265581&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
BLOG_B83.687095831074495106.312904168926
BLOG_S126.608343884301140153.391656115699

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
BLOG_B & 83.6870958310744 & 95 & 106.312904168926 \tabularnewline
BLOG_S & 126.608343884301 & 140 & 153.391656115699 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265581&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]BLOG_B[/C][C]83.6870958310744[/C][C]95[/C][C]106.312904168926[/C][/ROW]
[ROW][C]BLOG_S[/C][C]126.608343884301[/C][C]140[/C][C]153.391656115699[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265581&T=2

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



Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = yellow ;
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')