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 computationFri, 01 Jun 2012 05:59:14 -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/Jun/01/t1338544773x1xr53wim3aja5y.htm/, Retrieved Thu, 02 May 2024 06:36:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168505, Retrieved Thu, 02 May 2024 06:36:15 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Simple Linear Regression] [Triglyceridge Reg...] [2011-07-07 15:11:49] [74be16979710d4c4e7c6647856088456]
- R     [Simple Linear Regression] [Triglyceride] [2012-05-04 19:33:41] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RMPD      [CARE Data - Boxplots and Scatterplot Matrix] [Females] [2012-06-01 09:59:14] [b71c9e16338a5e81931d3d5ab38de99b] [Current]
- R  D        [CARE Data - Boxplots and Scatterplot Matrix] [males] [2012-06-01 10:02:56] [a75076681bab6e6646daba9243773cc1]
- RMPD        [T-Tests] [females weight] [2012-06-01 10:19:27] [a75076681bab6e6646daba9243773cc1]
- R  D          [T-Tests] [Males Weight] [2012-06-01 10:22:27] [a75076681bab6e6646daba9243773cc1]
- RM D          [Kolmogorov-Smirnov Test] [males ] [2012-06-01 10:30:00] [a75076681bab6e6646daba9243773cc1]
- RM            [Kolmogorov-Smirnov Test] [Femals] [2012-06-01 10:31:45] [a75076681bab6e6646daba9243773cc1]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
58	161	51	159
53	161	54	158
59	157	59	155
166	57	56	163
51	161	52	158
64	168	64	165
52	163	57	160
65	166	66	165
62	168	62	165
61	175	61	171
61	170	61	170
54	171	59	168
50	166	50	165
63	169	61	168
58	166	60	160
39	157	41	153
71	166	71	165
52	164	52	161
68	169	63	170
56	166	54	165
54	164	53	160
63	163	59	159
54	160	55	158
49	161	NA	NA
54	174	56	173
75	162	75	158
56	165	57	163
66	170	65	NA
78	173	75	169
60	162	59	160
64	165	63	163
64	164	62	161
52	158	51	155
62	175	61	171
55	165	54	163
56	163	57	159
50	166	50	161
50	171	NA	NA
50	160	55	150
63	160	64	158
61	165	60	163
53	169	52	175
60	167	55	163
56	170	56	170
53	165	53	165
57	163	59	160
57	162	56	160
56	161	56	161
56	165	57	160
50	169	50	165
52	159	52	153
55	155	NA	154
55	164	55	163
47	163	47	160
45	163	45	160
62	175	63	173
53	164	51	160
52	152	51	150
57	167	55	164
64	166	64	165
59	166	55	163
55	174	57	171
76	167	77	165
62	168	62	163
68	178	68	175
55	165	55	163
52	169	56	NA
47	153	NA	154
45	157	45	153
68	171	68	169
44	157	44	155
62	166	61	163
56	160	53	158
50	148	47	148
53	162	53	160
64	172	62	168
62	167	NA	NA
52	163	53	160
53	165	55	163
54	176	55	176
64	171	66	171
55	160	55	155
55	165	55	165
59	157	55	158
70	173	67	170
57	168	58	165
47	162	47	160
47	150	45	152
55	162	NA	NA
48	163	44	160
59	170	NA	NA
58	169	NA	NA
57	167	56	165
51	163	50	160
54	161	54	160
53	162	52	158
59	172	58	171
59	159	59	155
63	170	62	168
66	166	66	165
53	158	50	155
54	163	NA	NA
60	174	NA	NA
43	154	NA	NA
63	165	59	160
56	162	56	160
60	172	55	168
58	169	54	166
50	158	49	155
59	164	59	165
51	156	51	158
62	164	61	161

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168505&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168505&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168505&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 time2 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
weight3952.5566276
height150161165169178
repwt4153566171
repht 150159161165173

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
weight & 39 & 52.5 & 56 & 62 & 76 \tabularnewline
height & 150 & 161 & 165 & 169 & 178 \tabularnewline
repwt & 41 & 53 & 56 & 61 & 71 \tabularnewline
repht
 & 150 & 159 & 161 & 165 & 173 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168505&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]weight[/C][C]39[/C][C]52.5[/C][C]56[/C][C]62[/C][C]76[/C][/ROW]
[ROW][C]height[/C][C]150[/C][C]161[/C][C]165[/C][C]169[/C][C]178[/C][/ROW]
[ROW][C]repwt[/C][C]41[/C][C]53[/C][C]56[/C][C]61[/C][C]71[/C][/ROW]
[ROW][C]repht
[/C][C]150[/C][C]159[/C][C]161[/C][C]165[/C][C]173[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168505&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168505&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
weight3952.5566276
height150161165169178
repwt4153566171
repht 150159161165173






Boxplot Notches
Variablelower boundmedianupper bound
weight54.585657.42
height163.8165166.2
repwt54.745657.26
repht 160.1161161.9

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
weight & 54.58 & 56 & 57.42 \tabularnewline
height & 163.8 & 165 & 166.2 \tabularnewline
repwt & 54.74 & 56 & 57.26 \tabularnewline
repht
 & 160.1 & 161 & 161.9 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168505&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]weight[/C][C]54.58[/C][C]56[/C][C]57.42[/C][/ROW]
[ROW][C]height[/C][C]163.8[/C][C]165[/C][C]166.2[/C][/ROW]
[ROW][C]repwt[/C][C]54.74[/C][C]56[/C][C]57.26[/C][/ROW]
[ROW][C]repht
[/C][C]160.1[/C][C]161[/C][C]161.9[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168505&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168505&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
weight54.585657.42
height163.8165166.2
repwt54.745657.26
repht 160.1161161.9






Boxplot Means
Variabletrimmed meanunbiased SD
weight57.8712.38
height163.711.64
repwt56.746.737
repht 162.25.852

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
weight & 57.87 & 12.38 \tabularnewline
height & 163.7 & 11.64 \tabularnewline
repwt & 56.74 & 6.737 \tabularnewline
repht
 & 162.2 & 5.852 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168505&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]weight[/C][C]57.87[/C][C]12.38[/C][/ROW]
[ROW][C]height[/C][C]163.7[/C][C]11.64[/C][/ROW]
[ROW][C]repwt[/C][C]56.74[/C][C]6.737[/C][/ROW]
[ROW][C]repht
[/C][C]162.2[/C][C]5.852[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168505&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168505&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
weight57.8712.38
height163.711.64
repwt56.746.737
repht 162.25.852


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