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, 18 Dec 2012 12:03:53 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/18/t1355850260bysja9gq9siodhb.htm/, Retrieved Sat, 20 Apr 2024 05:04:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=201506, Retrieved Sat, 20 Apr 2024 05:04:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact66
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [notched boxplot] [2012-12-18 17:03:53] [3d604e7f846c7f85ca2541c807d08ff8] [Current]
Feedback Forum

Post a new message
Dataseries X:
79	30	115
58	28	109
60	38	146
108	30	116
49	22	68
0	26	101
121	25	96
1	18	67
20	11	44
43	26	100
69	25	93
78	38	140
86	44	166
44	30	99
104	40	139
63	34	130
158	47	181
102	30	116
77	31	116
82	23	88
115	36	139
101	36	135
80	30	108
50	25	89
83	39	156
123	34	129
73	31	118
81	31	118
105	33	125
47	25	95
105	33	126
94	35	135
44	42	154
114	43	165
38	30	113
107	33	127
30	13	52
71	32	121
84	36	136
0	0	0
59	28	108
33	14	46
42	17	54
96	32	124
106	30	115
56	35	128
57	20	80
59	28	97
39	28	104
34	39	59
76	34	125
20	26	82
91	39	149
115	39	149
85	33	122
76	28	118
8	4	12
79	39	144
21	18	67
30	14	52
76	29	108
101	44	166
94	21	80
27	16	60
92	28	107
123	35	127
75	28	107
128	38	146
105	23	84
55	36	141
56	32	123
41	29	111
72	25	98
67	27	105
75	36	135
114	28	107
118	23	85
77	40	155
22	23	88
66	40	155
69	28	104
105	34	132
116	33	127
88	28	108
73	34	129
99	30	116
62	33	122
53	22	85
118	38	147
30	26	99
100	35	87
49	8	28
24	24	90
67	29	109
46	20	78
57	29	111
75	45	158
135	37	141
68	33	122
124	33	124
33	25	93
98	32	124
58	29	112
68	28	108
81	28	99
131	31	117
110	52	199
37	21	78
130	24	91
93	41	158
118	33	126
39	32	122
13	19	71
74	20	75
81	31	115
109	31	119
151	32	124
51	18	72
28	23	91
40	17	45
56	20	78
27	12	39
37	17	68
83	30	119
54	31	117
27	10	39
28	13	50
59	22	88
133	42	155
12	1	0
0	9	36
106	32	123
23	11	32
44	25	99
71	36	136
116	31	117
4	0	0
62	24	88
12	13	39
18	8	25
14	13	52
60	19	75
7	18	71
98	33	124
64	40	151
29	22	71
32	38	145
25	24	87
16	8	27
48	35	131
100	43	162
46	43	165
45	14	54
129	41	159
130	38	147
136	45	170
59	31	119
25	13	49
32	28	104
63	31	120
95	40	150
14	30	112
36	16	59
113	37	136
47	30	107
92	35	130
70	32	115
19	27	107
50	20	75
41	18	71
91	31	120
111	31	116
41	21	79
120	39	150
135	41	156
27	13	51
87	32	118
25	18	71
131	39	144
45	14	47
29	7	28
58	17	68
4	0	0
47	30	110
109	37	147
7	0	0
12	5	15
0	1	4
37	16	64
37	32	111
46	24	85
15	17	68
42	11	40
7	24	80
54	22	88
54	12	48
14	19	76
16	13	51
33	17	67
32	15	59
21	16	61
15	24	76
38	15	60
22	17	68
28	18	71
10	20	76
31	16	62
32	16	61
32	18	67
43	22	88
27	8	30
37	17	64
20	18	68
32	16	64
0	23	91
5	22	88
26	13	52
10	13	49
27	16	62
11	16	61
29	20	76
25	22	88
55	17	66
23	18	71
5	17	68
43	12	48
23	7	25
34	17	68
36	14	41
35	23	90
0	17	66
37	14	54
28	15	59
16	17	60
26	21	77
38	18	68
23	18	72
22	17	67
30	17	64
16	16	63
18	15	59
28	21	84
32	16	64
21	14	56
23	15	54
29	17	67
50	15	58
12	15	59
21	10	40
18	6	22
27	22	83
41	21	81
13	1	2
12	18	72
21	17	61
8	4	15
26	10	32
27	16	62
13	16	58
16	9	36
2	16	59
42	17	68
5	7	21
37	15	55
17	14	54
38	14	55
37	18	72
29	12	41
32	16	61
35	21	67
17	19	76
20	16	64
7	1	3
46	16	63
24	10	40
40	19	69
3	12	48
10	2	8
37	14	52
17	17	66
28	19	76
19	14	43
29	11	39
8	4	14
10	16	61
15	20	71
15	12	44
28	15	60
17	16	64




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201506&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 time2 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
A & 0 & 24 & 41 & 77 & 151 \tabularnewline
B & 0 & 16 & 22 & 31 & 52 \tabularnewline
C & 0 & 60 & 83 & 118 & 199 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201506&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]A[/C][C]0[/C][C]24[/C][C]41[/C][C]77[/C][C]151[/C][/ROW]
[ROW][C]B[/C][C]0[/C][C]16[/C][C]22[/C][C]31[/C][C]52[/C][/ROW]
[ROW][C]C[/C][C]0[/C][C]60[/C][C]83[/C][C]118[/C][C]199[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201506&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
A36.07411764705884145.9258823529412
B20.60588235294122223.3941176470588
C77.60941176470598388.3905882352941

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
A & 36.0741176470588 & 41 & 45.9258823529412 \tabularnewline
B & 20.6058823529412 & 22 & 23.3941176470588 \tabularnewline
C & 77.6094117647059 & 83 & 88.3905882352941 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201506&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]A[/C][C]36.0741176470588[/C][C]41[/C][C]45.9258823529412[/C][/ROW]
[ROW][C]B[/C][C]20.6058823529412[/C][C]22[/C][C]23.3941176470588[/C][/ROW]
[ROW][C]C[/C][C]77.6094117647059[/C][C]83[/C][C]88.3905882352941[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201506&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201506&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
A36.07411764705884145.9258823529412
B20.60588235294122223.3941176470588
C77.60941176470598388.3905882352941



Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = grey ;
R code (references can be found in the software module):
par1 <- 'grey'
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')