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:52 +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/t1418237712adpd3j1rfyat57g.htm/, Retrieved Sat, 18 May 2024 18:01:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265582, Retrieved Sat, 18 May 2024 18:01:39 +0000
QR Codes:

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

Post a new message
Dataseries X:
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	NA
80	NA
152	NA
97	NA
99	NA
84	NA
68	NA
101	NA
107	NA
88	NA
112	NA
171	NA
137	NA
77	NA
66	NA
93	NA
105	NA
131	NA
102	NA
161	NA
120	NA
127	NA
77	NA
108	NA
85	NA
168	NA
48	NA
152	NA
75	NA
107	NA
62	NA
121	NA
124	NA
72	NA
40	NA
58	NA
97	NA
88	NA
126	NA
104	NA
148	NA
146	NA
80	NA
97	NA
25	NA
99	NA
118	NA
58	NA
63	NA
139	NA
50	NA
60	NA
152	NA
142	NA
94	NA
66	NA
127	NA
67	NA
90	NA
75	NA
128	NA
146	NA
69	NA
186	NA
81	NA
85	NA
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
NA	263
NA	35
NA	439
NA	214
NA	341
NA	58
NA	292
NA	85
NA	200
NA	158
NA	199
NA	297
NA	227
NA	108
NA	86
NA	302
NA	148
NA	178
NA	120
NA	207
NA	157
NA	128
NA	296
NA	323
NA	79
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
NA	130
NA	179
NA	243
NA	190
NA	299
NA	121
NA	137
NA	305
NA	157
NA	96
NA	183
NA	52
NA	238
NA	40
NA	226
NA	190
NA	214
NA	145
NA	119
NA	222
NA	222
NA	159
NA	165
NA	249
NA	125
NA	122
NA	186
NA	148
NA	274
NA	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	268
NA	175
NA	77
NA	125
NA	255
NA	111
NA	132
NA	211
NA	92
NA	76
NA	171
NA	83
NA	266
NA	186
NA	50
NA	117
NA	219
NA	246
NA	279
NA	148
NA	137
NA	181
NA	98
NA	226
NA	234
NA	138
NA	85
NA	66
NA	236
NA	106
NA	135
NA	122
NA	218
NA	199
NA	112
NA	278
NA	94
NA	113
NA	84
NA	86
NA	62
NA	222
NA	167
NA	82
NA	207
NA	184
NA	83
NA	183
NA	89
NA	225
NA	237
NA	102
NA	221
NA	128
NA	91
NA	198
NA	204
NA	158
NA	138
NA	226
NA	44
NA	196
NA	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	139
NA	196
NA	78




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

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
BLOG_20112561.588115186
BLOG_20122102155212341

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
BLOG_2011 & 25 & 61.5 & 88 & 115 & 186 \tabularnewline
BLOG_2012 & 2 & 102 & 155 & 212 & 341 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265582&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_2011[/C][C]25[/C][C]61.5[/C][C]88[/C][C]115[/C][C]186[/C][/ROW]
[ROW][C]BLOG_2012[/C][C]2[/C][C]102[/C][C]155[/C][C]212[/C][C]341[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265582&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
BLOG_201180.01266577413258895.9873342258675
BLOG_2012141.510503863224155168.489496136776

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
BLOG_2011 & 80.0126657741325 & 88 & 95.9873342258675 \tabularnewline
BLOG_2012 & 141.510503863224 & 155 & 168.489496136776 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265582&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_2011[/C][C]80.0126657741325[/C][C]88[/C][C]95.9873342258675[/C][/ROW]
[ROW][C]BLOG_2012[/C][C]141.510503863224[/C][C]155[/C][C]168.489496136776[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265582&T=2

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



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