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 ModuleIan.Hollidayrwasp_CARE Data Boxplot.wasp
Title produced by softwareBoxplot and Trimmed Means
Date of computationFri, 23 Oct 2009 13:51:30 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/23/t1256298756gf86kp3e1pv5s6u.htm/, Retrieved Thu, 02 May 2024 13:46:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=49907, Retrieved Thu, 02 May 2024 13:46:48 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Boxplot and Trimmed Means] [Care Age 7 Data] [2009-10-18 00:49:58] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   PD    [Boxplot and Trimmed Means] [workshop] [2009-10-23 11:51:30] [31919d1653cd7afd29ffd40c68345d96] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
86	93	89	93	85
86	95	95	103	92
86	82	84	86	85
86	91	96	88	92
86	92	102	95	97
86	82	89	83	87
86	102	92	96	92
87	72	78	85	82
87	102	106	88	97
87	78	98	82	88
87	95	102	91	91
87	95	80	92	84
87	97	99	83	95
88	70	96	97	89
88	81	102	81	97
88	80	112	91	87
88	82	83	79	82
89	81	109	83	95
89	110	105	98	98
89	95	89	89	87
89	93	94	87	90
89	97	109	93	105
89	98	95	100	95
89	79	83	83	85
89	82	103	83	87
90	91	88	102	92
90	105	99	88	97
90	75	97	87	82
90	90	106	101	97
90	102	96	103	97
90	95	88	102	94
90	97	116	96	94
90	95	99	89	91
90	95	95	103	95

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'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=49907&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=49907&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=49907&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'RServer@AstonUniversity' @ vre.aston.ac.uk






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
WJ7ARD868788.59090
WJ7AMA70829397110
WJ7AWL788996102116
WJ7AKN79859097103
WJ7ASK82879295105

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WJ7ARD & 86 & 87 & 88.5 & 90 & 90 \tabularnewline
WJ7AMA & 70 & 82 & 93 & 97 & 110 \tabularnewline
WJ7AWL & 78 & 89 & 96 & 102 & 116 \tabularnewline
WJ7AKN & 79 & 85 & 90 & 97 & 103 \tabularnewline
WJ7ASK & 82 & 87 & 92 & 95 & 105 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=49907&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]WJ7ARD[/C][C]86[/C][C]87[/C][C]88.5[/C][C]90[/C][C]90[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]70[/C][C]82[/C][C]93[/C][C]97[/C][C]110[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]78[/C][C]89[/C][C]96[/C][C]102[/C][C]116[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]79[/C][C]85[/C][C]90[/C][C]97[/C][C]103[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]82[/C][C]87[/C][C]92[/C][C]95[/C][C]105[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=49907&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=49907&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
WJ7ARD868788.59090
WJ7AMA70829397110
WJ7AWL788996102116
WJ7AKN79859097103
WJ7ASK82879295105






Boxplot Means
Variabletrimmed meanunbiased SD
WJ7ARD88.181.53
WJ7AMA90.269.84
WJ7AWL96.299.25
WJ7AKN91.187.36
WJ7ASK91.265.57

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
WJ7ARD & 88.18 & 1.53 \tabularnewline
WJ7AMA & 90.26 & 9.84 \tabularnewline
WJ7AWL & 96.29 & 9.25 \tabularnewline
WJ7AKN & 91.18 & 7.36 \tabularnewline
WJ7ASK & 91.26 & 5.57 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=49907&T=2

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]WJ7ARD[/C][C]88.18[/C][C]1.53[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]90.26[/C][C]9.84[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]96.29[/C][C]9.25[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]91.18[/C][C]7.36[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]91.26[/C][C]5.57[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=49907&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=49907&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 Means
Variabletrimmed meanunbiased SD
WJ7ARD88.181.53
WJ7AMA90.269.84
WJ7AWL96.299.25
WJ7AKN91.187.36
WJ7ASK91.265.57


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 5 ; par2 = FALSE ; par3 = 0 ;
Parameters (R input):
par1 = 5 ; par2 = FALSE ; 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,round(r$stats[j,i], digits=2))
}
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,round(r$conf[1,i], digits=2))
a<-table.element(a, round(r$stats[3,i], digits=2))
a<-table.element(a,round(r$conf[2,i], digits=2))
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,round(mean(z[i], trim=par3/100), digits=2))
a<-table.element(a,round(sd(z[i]), digits=2))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')