FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_CARE Data Boxplot.wasp
Title produced by softwareCARE Data - Boxplots and Scatterplot Matrix
Date of computationMon, 21 May 2012 07:12:25 -0400
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/May/21/t1337599374ai400vjx1s7l2kq.htm/, Retrieved Thu, 02 May 2024 21:08:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=166914, Retrieved Thu, 02 May 2024 21:08:51 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact126

Tree of Dependent Computations

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-21 11:12:25] [01b18e02b487c3522f9b32f9cefdfb6b] [Current]
Feedback Forum

Post a new message

Dataset

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

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ jenkins.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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=166914&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=166914&T=0

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

As an alternative you can also use a QR Code:  
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'Gwilym Jenkins' @ jenkins.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
fw3952.5566276
fh152161.5165169178
mw5467.57583103
mh163173178183197

\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
fh & 152 & 161.5 & 165 & 169 & 178 \tabularnewline
mw & 54 & 67.5 & 75 & 83 & 103 \tabularnewline
mh & 163 & 173 & 178 & 183 & 197 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=166914&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]fh[/C][C]152[/C][C]161.5[/C][C]165[/C][C]169[/C][C]178[/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]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=166914&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
fw3952.5566276
fh152161.5165169178
mw5467.57583103
mh163173178183197






Boxplot Notches
Variablelower boundmedianupper bound
fw54.585657.42
fh163.9165166.1
mw72.397577.61
mh176.3178179.7

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

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

As an alternative you can also use a QR Code:  
QR Code


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

Boxplot Notches
Variablelower boundmedianupper bound
fw54.585657.42
fh163.9165166.1
mw72.397577.61
mh176.3178179.7






Boxplot Means
Variabletrimmed meanunbiased SD
fw56.896.891
fh164.75.683
mw75.911.89
mh1786.441

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
fw & 56.89 & 6.891 \tabularnewline
fh & 164.7 & 5.683 \tabularnewline
mw & 75.9 & 11.89 \tabularnewline
mh & 178 & 6.441 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=166914&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]fh[/C][C]164.7[/C][C]5.683[/C][/ROW]
[ROW][C]mw[/C][C]75.9[/C][C]11.89[/C][/ROW]
[ROW][C]mh[/C][C]178[/C][C]6.441[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=166914&T=3

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

As an alternative you can also use a QR Code:  
QR Code


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

Boxplot Means
Variabletrimmed meanunbiased SD
fw56.896.891
fh164.75.683
mw75.911.89
mh1786.441


Figures (Output of Computation)

Input Parameters & R Code

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):
par3 <- '0'
par2 <- 'TRUE'
par1 <- '3'
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')