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_CARE Data Boxplot.wasp

Title produced by software

CARE Data - Boxplots and Scatterplot Matrix

Date of computation

Thu, 31 May 2012 10:22:17 -0400

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/2012/May/31/t1338474144e8nsw5rozlb2khk.htm/, Retrieved Mon, 06 May 2024 13:23:09 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168088, Retrieved Mon, 06 May 2024 13:23:09 +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

123

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

-       [CARE Data - Boxplots and Scatterplot Matrix] [] [2012-05-31 14:22:17] [01b18e02b487c3522f9b32f9cefdfb6b] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

58	77	161	182
53	68	161	177
59	76	157	170
51	76	161	167
64	69	168	186
52	71	163	178
65	65	166	171
62	70	168	175
61	92	175	187
61	76	170	197
54	119	171	180
50	65	166	175
63	66	169	173
58	101	166	183
39	75	157	178
71	79	166	173
52	64	164	176
68	69	169	174
56	88	166	178
54	65	164	187
63	80	163	178
54	78	160	183
49	85	161	179
54	73	174	180
75	82	162	182
56	74	165	169
66	102	170	185
78	64	173	177
60	65	162	176
64	73	165	183
64	75	164	172
52	57	158	173
62	68	175	165
55	71	165	177
56	71	163	180
50	97	166	189
50	80	171	178
50	66	160	173
63	69	160	182
61	69	165	183
53	55	169	168
60	59	167	182
56	62	170	178
53	70	165	173
57	84	163	184
57	69	162	180
56	88	161	189
56	103	165	185
50	63	169	178
52	84	159	183
55	79	155	179
55	67	164	179
47	83	163	184
45	96	163	184
62	75	175	169
53	65	164	178
52	78	152	178
57	69	167	167
64	67	166	179
59	87	166	185
55	83	174	177
76	90	167	188
62	85	168	191
68	66	178	175
55	88	165	184
52	54	169	169
47	69	153	172
45	56	157	163
68	96	171	191
44	76	157	169
62	61	166	170
56	82	160	176
50	62	148	168
53	71	162	178
64	66	172	170
62	81	167	178
52	68	163	174
53	80	165	176
54	82	176	181
64	70	171	173
55	76	160	183
55	88	165	185
59	89	157	173
70	74	173	175
57	83	168	180
47	81	162	175
47	90	150	181
55	79	162	177
48	NA	163	NA
59	NA	170	NA
58	NA	169	NA
57	NA	167	NA
51	NA	163	NA
54	NA	161	NA
53	NA	162	NA
59	NA	172	NA
59	NA	159	NA
63	NA	170	NA
66	NA	166	NA
53	NA	158	NA
54	NA	163	NA
60	NA	174	NA
43	NA	154	NA
63	NA	165	NA
56	NA	162	NA
60	NA	172	NA
58	NA	169	NA
50	NA	158	NA
59	NA	164	NA
51	NA	156	NA
62	NA	164	NA

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168088&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	2 seconds
R Server	'Herman Ole Andreas Wold' @ wold.wessa.net

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
fw	39	52.5	56	62	76
mw	54	67.5	75	83	103
fh	152	161.5	165	169	178
mh	163	173	178	183	197

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
fw & 39 & 52.5 & 56 & 62 & 76 \tabularnewline
mw & 54 & 67.5 & 75 & 83 & 103 \tabularnewline
fh & 152 & 161.5 & 165 & 169 & 178 \tabularnewline
mh & 163 & 173 & 178 & 183 & 197 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168088&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]fw[/C][C]39[/C][C]52.5[/C][C]56[/C][C]62[/C][C]76[/C][/ROW]
[ROW][C]mw[/C][C]54[/C][C]67.5[/C][C]75[/C][C]83[/C][C]103[/C][/ROW]
[ROW][C]fh[/C][C]152[/C][C]161.5[/C][C]165[/C][C]169[/C][C]178[/C][/ROW]
[ROW][C]mh[/C][C]163[/C][C]173[/C][C]178[/C][C]183[/C][C]197[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168088&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168088&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
fw	39	52.5	56	62	76
mw	54	67.5	75	83	103
fh	152	161.5	165	169	178
mh	163	173	178	183	197

Boxplot Notches
Variable	lower bound	median	upper bound
fw	54.58	56	57.42
mw	72.39	75	77.61
fh	163.9	165	166.1
mh	176.3	178	179.7

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
fw & 54.58 & 56 & 57.42 \tabularnewline
mw & 72.39 & 75 & 77.61 \tabularnewline
fh & 163.9 & 165 & 166.1 \tabularnewline
mh & 176.3 & 178 & 179.7 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168088&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]fw[/C][C]54.58[/C][C]56[/C][C]57.42[/C][/ROW]
[ROW][C]mw[/C][C]72.39[/C][C]75[/C][C]77.61[/C][/ROW]
[ROW][C]fh[/C][C]163.9[/C][C]165[/C][C]166.1[/C][/ROW]
[ROW][C]mh[/C][C]176.3[/C][C]178[/C][C]179.7[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168088&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168088&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
fw	54.58	56	57.42
mw	72.39	75	77.61
fh	163.9	165	166.1
mh	176.3	178	179.7

Boxplot Means
Variable	trimmed mean	unbiased SD
fw	56.89	6.891
mw	75.9	11.89
fh	164.7	5.683
mh	178	6.441

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
fw & 56.89 & 6.891 \tabularnewline
mw & 75.9 & 11.89 \tabularnewline
fh & 164.7 & 5.683 \tabularnewline
mh & 178 & 6.441 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168088&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]fw[/C][C]56.89[/C][C]6.891[/C][/ROW]
[ROW][C]mw[/C][C]75.9[/C][C]11.89[/C][/ROW]
[ROW][C]fh[/C][C]164.7[/C][C]5.683[/C][/ROW]
[ROW][C]mh[/C][C]178[/C][C]6.441[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168088&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168088&T=3

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Boxplot Means
Variable	trimmed mean	unbiased SD
fw	56.89	6.891
mw	75.9	11.89
fh	164.7	5.683
mh	178	6.441

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 3 ; par2 = TRUE ; par3 = 0 ;

Parameters (R input):

par1 = 3 ; par2 = TRUE ; par3 = 0 ;

R code (references can be found in the software module):

par1 <- as.numeric(par1) #colour
par2<- as.logical(par2) # Notches ?
par3<-as.numeric(par3) # % trim
if(par3>45){par3<-45;warning('trim limited to 45%')}
if(par3<0){par3<-0;warning('negative trim makes no sense. Trim is zero.')}
lotrm<-as.integer(length(y[1,])*par3/100)+1
hitrm<-as.integer(length(y[1,])*(100-par3)/100)
y1<-array(dim=c(dim(y)[1], hitrm-lotrm+1), dimnames=list(dimnames(y)[[1]], 1:(hitrm-lotrm+1) ))
for(i in 1:dim(y)[1]){
tmp<-order(y[i,])
y1[i,]<- y[i, tmp[lotrm:hitrm] ]
}
bitmap(file='test2.png')
pairs(t(y))
dev.off()
y<-y1
z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=par2,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,signif(r$stats[j,i], digits=4))
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
if (par2){
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,signif(r$conf[1,i], digits=4))
a<-table.element(a, signif(r$stats[3,i], digits=4))
a<-table.element(a,signif(r$conf[2,i], digits=4))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
}
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot Means',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,hyperlink('trimmed_mean.htm','trimmed mean','definition of trimmed mean'),1,TRUE)
a<-table.element(a,hyperlink('unbiased1.htm','unbiased SD','definition of unbiased SD'),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,signif(mean(z[i], trim=par3/100, na.rm=TRUE), digits=4))
a<-table.element(a,signif(sd(z[i], na.rm=TRUE), digits=4))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code