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:37:33 -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/t1338543463431k9xhiwe2haeq.htm/, Retrieved Thu, 02 May 2024 03:58:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168347, Retrieved Thu, 02 May 2024 03:58:37 +0000
QR Codes:

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

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] [Male and female r...] [2012-06-01 09:37:33] [50ef738b441df67da458e2632ba394c1] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
109	154
107	138
118	152
222	153
103	142
128	142
109	129
131	145
124	193
122	151
122	243
113	131
100	136
124	201
118	148
80	155
142	129
104	138
131	174
110	132
107	160
122	158
109	167
100.1696943	144.3409
110	167
150	147
113	209
131	135.3409
153	129
119	147
127	145
126	115
103	137
123	142
109	147
113	195
100	156
101.1696943	132
105	139
127	139
121	111
105	120
115	128
112	138
106	170
116	140
113	175
112	204
113	126
100	174
104	158
106.1696943	134
110	166
94	190
90	151
125	131
104	155
103	142
112	138.3409
128	176
114	167
112	181
153	168
124	134
136	174
110	112
108	137
98.16969429	114
90	191
136	151
88	122
123	153.3409
109	126
97	139
106	133
126	163
113.1696943	136
105	158
108	153.3409
109	140
130	151
110	181
110	175
114	145
137	163
115	152.3409
94	181
92	160

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=168347&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=168347&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168347&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
FD80105112123.5150
MD111136.5147.5166.5209

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
FD & 80 & 105 & 112 & 123.5 & 150 \tabularnewline
MD & 111 & 136.5 & 147.5 & 166.5 & 209 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168347&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]FD[/C][C]80[/C][C]105[/C][C]112[/C][C]123.5[/C][C]150[/C][/ROW]
[ROW][C]MD[/C][C]111[/C][C]136.5[/C][C]147.5[/C][C]166.5[/C][C]209[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168347&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168347&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
FD80105112123.5150
MD111136.5147.5166.5209






Boxplot Notches
Variablelower boundmedianupper bound
FD108.9112115.1
MD142.4147.5152.6

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
FD & 108.9 & 112 & 115.1 \tabularnewline
MD & 142.4 & 147.5 & 152.6 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168347&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]FD[/C][C]108.9[/C][C]112[/C][C]115.1[/C][/ROW]
[ROW][C]MD[/C][C]142.4[/C][C]147.5[/C][C]152.6[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168347&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168347&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
FD108.9112115.1
MD142.4147.5152.6






Boxplot Means
Variabletrimmed meanunbiased SD
FD11518.1
MD152.123.6

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
FD & 115 & 18.1 \tabularnewline
MD & 152.1 & 23.6 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168347&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]FD[/C][C]115[/C][C]18.1[/C][/ROW]
[ROW][C]MD[/C][C]152.1[/C][C]23.6[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168347&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168347&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
FD11518.1
MD152.123.6


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 10 ;
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')