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 softwareCARE Data - Boxplots and Scatterplot Matrix
Date of computationSun, 24 Oct 2010 20:22:00 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Oct/24/t1287951842dupet4qmpnk1tz4.htm/, Retrieved Sat, 04 May 2024 05:08:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=87998, Retrieved Sat, 04 May 2024 05:08:42 +0000
QR Codes:

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

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 10 Data] [2009-10-26 09:01:50] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   PD  [Boxplot and Trimmed Means] [Care Age 7 Data] [2009-10-26 18:36:29] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   P     [CARE Data - Boxplots and Scatterplot Matrix] [CARE Data] [2010-10-19 14:16:27] [3fdd735c61ad38cbc9b3393dc997cdb7]
-    D      [CARE Data - Boxplots and Scatterplot Matrix] [year 10 scores] [2010-10-24 15:19:18] [ad242f11936670f32431a7d8dcb89f1d]
-   PD          [CARE Data - Boxplots and Scatterplot Matrix] [WJ10AVA, WJ10AMA,...] [2010-10-24 20:22:00] [1b4eef386181e99ea2bab8cb27e85d8d] [Current]
-   PD            [CARE Data - Boxplots and Scatterplot Matrix] [10 for all scores] [2010-10-31 11:46:09] [ad242f11936670f32431a7d8dcb89f1d]
-   PD            [CARE Data - Boxplots and Scatterplot Matrix] [10% trim for year...] [2010-10-31 11:51:05] [ad242f11936670f32431a7d8dcb89f1d]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
95	81	84
92	90	97
95	91	88
97	87	87
92	89	92
104	85	91
79	81	80
78	80	73
79	75	73
86	84	77
92	91	86
78	87	82
86	90	82
71	72	73
90	96	99
93	88	90
80	73	78
90	86	100
77	67	73
86	89	95
89	94	93
88	88	91
86	77	81
97	89	98
81	104	88
88	89	90
82	107	85
82	96	79
100	111	107
91	84	82
111	83	98
102	82	84
105	105	99
92	100	89
100	111	105
82	90	94
91	87	92
71	90	81
71	67	NA
89	84	86
82	84	90
105	96	101
71	67	73
91	90	88
105	83	90
82	78	84
86	100	89
72	67	73
98	94	98
80   89	82
84	89	77
109	111	107
80	88	84
112	94	93
86	111	96
112	111	107
90	105	95
96	97	89
84	83	82
94	105	92
112	69	100
81	80	75
105  87	94
77	67	83
105	92	92
112	102	102
91	90	98
92	98	94
72	94	83
100	101	107
103	96	107
89	94	91
86	105	83
112	105	100
71	84	77
73	72	74
99	96	92
85	94	100
80	107	92
88	103	93
95	95	89
86	73	86
92	110	97
96	84	82
71	67	73
88	73	93
98	84	97
108	79	93
103	91	89
81	92	86
96	107	89
112	111	107
95	89	90
925	10	104
103	98	96
95	95	93
94	84	104
791	3	83
91	86	92
87	98	83
82	90	83
97	97	96
92	106	84
112	106	107

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' @ 72.249.127.135

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=87998&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' @ 72.249.127.135






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
WJ10AVA71849197112
WJ10AMA67849096110
WJ10AKN73839095107

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WJ10AVA & 71 & 84 & 91 & 97 & 112 \tabularnewline
WJ10AMA & 67 & 84 & 90 & 96 & 110 \tabularnewline
WJ10AKN & 73 & 83 & 90 & 95 & 107 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=87998&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]WJ10AVA[/C][C]71[/C][C]84[/C][C]91[/C][C]97[/C][C]112[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]67[/C][C]84[/C][C]90[/C][C]96[/C][C]110[/C][/ROW]
[ROW][C]WJ10AKN[/C][C]73[/C][C]83[/C][C]90[/C][C]95[/C][C]107[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=87998&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=87998&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
WJ10AVA71849197112
WJ10AMA67849096110
WJ10AKN73839095107






Boxplot Means
Variabletrimmed meanunbiased SD
WJ10AVA90.899.82
WJ10AMA89.9410.18
WJ10AKN89.737.92

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
WJ10AVA & 90.89 & 9.82 \tabularnewline
WJ10AMA & 89.94 & 10.18 \tabularnewline
WJ10AKN & 89.73 & 7.92 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=87998&T=2

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]WJ10AVA[/C][C]90.89[/C][C]9.82[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]89.94[/C][C]10.18[/C][/ROW]
[ROW][C]WJ10AKN[/C][C]89.73[/C][C]7.92[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=87998&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=87998&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
WJ10AVA90.899.82
WJ10AMA89.9410.18
WJ10AKN89.737.92


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 3 ; par2 = FALSE ; par3 = 5 ;
Parameters (R input):
par1 = 3 ; par2 = FALSE ; par3 = 5 ;
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, na.rm=TRUE), digits=2))
a<-table.element(a,round(sd(z[i], na.rm=TRUE), digits=2))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')