Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_notchedbox1.wasp

Title produced by software

Notched Boxplots

Date of computation

Wed, 10 Dec 2014 18:44:24 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/10/t14182370691t0nqdaq3ei6qep.htm/, Retrieved Sun, 19 May 2024 15:21:38 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265572, Retrieved Sun, 19 May 2024 15:21:38 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Notched Boxplots] [] [2014-12-10 14:35:07] [a30ebaf79f34e9d2b1bcdd5006125d11]
- R       [Notched Boxplots] [] [2014-12-10 18:44:24] [fbbeb95c33c8ff026e5ecae513ae1a4b] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

NA	149
NA	139
NA	148
NA	158
NA	128
NA	224
NA	159
NA	105
NA	159
NA	167
NA	165
NA	159
NA	119
NA	176
NA	54
91	NA
NA	163
NA	124
137	NA
NA	121
NA	153
NA	148
NA	221
NA	188
NA	149
NA	244
148	NA
92	NA
NA	150
NA	153
NA	94
NA	156
NA	132
NA	161
NA	105
NA	97
NA	151
131	NA
NA	166
NA	157
NA	111
NA	145
NA	162
NA	163
59	NA
NA	187
NA	109
90	NA
NA	105
83	NA
116	NA
42	NA
NA	148
155	NA
NA	125
NA	116
128	NA
NA	138
49	NA
96	NA
NA	164
NA	162
NA	99
NA	202
NA	186
66	NA
NA	183
NA	214
NA	188
104	NA
NA	177
NA	126
76	NA
99	NA
NA	139
NA	162
108	NA
NA	159
74	NA
NA	110
96	NA
116	NA
87	NA
97	NA
127	NA
106	NA
80	NA
74	NA
91	NA
133	NA
74	NA
114	NA
140	NA
95	NA
98	NA
121	NA
126	NA
98	NA
95	NA
110	NA
70	NA
102	NA
86	NA
130	NA
96	NA
102	NA
100	NA
94	NA
52	NA
98	NA
118	NA
99	NA
NA	48
NA	50
NA	150
NA	154
109	NA
68	NA
NA	194
NA	158
NA	159
NA	67
NA	147
NA	39
NA	100
NA	111
NA	138
NA	101
131	NA
NA	101
NA	114
NA	165
NA	114
NA	111
NA	75
NA	82
NA	121
NA	32
NA	150
NA	117
71	NA
NA	165
NA	154
NA	126
NA	149
NA	145
NA	120
NA	109
NA	132
NA	172
NA	169
NA	114
NA	156
NA	172
68	NA
89	NA
NA	167
NA	113
115	NA
78	NA
118	NA
87	NA
NA	173
NA	2
162	NA
49	NA
122	NA
96	NA
100	NA
82	NA
100	NA
115	NA
141	NA
NA	165
NA	165
110	NA
NA	118
NA	158
146	NA
NA	49
90	NA
121	NA
NA	155
104	NA
147	NA
110	NA
108	NA
113	NA
115	NA
61	NA
60	NA
109	NA
68	NA
111	NA
77	NA
73	NA
NA	151
89	NA
78	NA
110	NA
NA	220
65	NA
NA	141
117	NA
NA	122
63	NA
NA	44
52	NA
131	NA
101	NA
42	NA
NA	152
NA	107
77	NA
NA	154
NA	103
96	NA
NA	175
57	NA
112	NA
NA	143
49	NA
NA	110
NA	131
NA	167
56	NA
NA	137
86	NA
NA	121
NA	149
NA	168
NA	140
88	NA
NA	168
NA	94
NA	51
48	NA
NA	145
NA	66
85	NA
NA	109
63	NA
102	NA
162	NA
86	NA
114	NA
NA	164
NA	119
NA	126
NA	132
NA	142
NA	83
94	NA
81	NA
NA	166
110	NA
64	NA
NA	93
104	NA
105	NA
49	NA
88	NA
95	NA
102	NA
99	NA
63	NA
76	NA
109	NA
117	NA
57	NA
120	NA
73	NA
91	NA
108	NA
105	NA
NA	117
119	NA
31	NA

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265572&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265572&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265572&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gertrude Mary Cox' @ cox.wessa.net

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
LFM_B	31	76.5	96.5	112.5	162
LFM_S	44	113	145	162	224

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
LFM_B & 31 & 76.5 & 96.5 & 112.5 & 162 \tabularnewline
LFM_S & 44 & 113 & 145 & 162 & 224 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265572&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]LFM_B[/C][C]31[/C][C]76.5[/C][C]96.5[/C][C]112.5[/C][C]162[/C][/ROW]
[ROW][C]LFM_S[/C][C]44[/C][C]113[/C][C]145[/C][C]162[/C][C]224[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265572&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265572&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
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
LFM_B	31	76.5	96.5	112.5	162
LFM_S	44	113	145	162	224

Boxplot Notches
Variable	lower bound	median	upper bound
LFM_B	91.622580238547	96.5	101.377419761453
LFM_S	138.503057924067	145	151.496942075933

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
LFM_B & 91.622580238547 & 96.5 & 101.377419761453 \tabularnewline
LFM_S & 138.503057924067 & 145 & 151.496942075933 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265572&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]LFM_B[/C][C]91.622580238547[/C][C]96.5[/C][C]101.377419761453[/C][/ROW]
[ROW][C]LFM_S[/C][C]138.503057924067[/C][C]145[/C][C]151.496942075933[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265572&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265572&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
Variable	lower bound	median	upper bound
LFM_B	91.622580238547	96.5	101.377419761453
LFM_S	138.503057924067	145	151.496942075933

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = grey ;

Parameters (R input):

par1 = blue ;

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code