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, 19 Oct 2012 11:27:07 -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/Oct/19/t1350660465ygme01vnq2qr3ut.htm/, Retrieved Wed, 01 May 2024 18:08:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=180286, Retrieved Wed, 01 May 2024 18:08:55 +0000
QR Codes:

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

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]
- RM        [CARE Data - Boxplots and Scatterplot Matrix] [CARE data - works...] [2011-10-17 10:23:12] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R P         [CARE Data - Boxplots and Scatterplot Matrix] [week 2 trim 50%] [2012-10-15 13:15:53] [ecd26615a61c6b1620ea27f573ad9ddf]
-   P           [CARE Data - Boxplots and Scatterplot Matrix] [Care data 7] [2012-10-15 15:05:13] [ecd26615a61c6b1620ea27f573ad9ddf]
-    D              [CARE Data - Boxplots and Scatterplot Matrix] [YEAR 7 YEAR10 ] [2012-10-19 15:27:07] [8b4130a30b96bca4cc7b238e4b3ba88c] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
88	95	95	81	84	89	81	109	83	95
98	92	87	90	97	90	91	88	102	92
89	95	91	91	88	82	96	87	75	85
81	97	84	87	87	82	85	78	92	83
88	92	92	89	92	71	74	72	94	73
95	104	84	85	91	80	78	85	88	81
79	79	84	81	80	62	71	73	77	63
91	78	69	80	73	77	72	77	63	77
80	79	84	75	73	80	87	90	73	82
91	86	84	84	77	87	72	78	85	82
85	92	85	91	86	96	90	96	80	95
94	78	89	87	82	80	87	84	77	85
86	86	83	90	82	85	89	87	67	88
82	71	86	72	73	89	110	105	98	98
107	90	91	96	99	89	95	89	89	87
97	93	90	88	90	73	72	78	63	71
78	80	77	73	78	88	70	96	97	89
91	90	88	86	100	86	79	79	77	86
74	77	88	67	73	83	92	90	96	88
95	86	88	89	95	91	93	96	84	93
97	89	102	94	93	98	97	95	94	95
112	88	103	88	91	80	75	79	70	78
80	86	84	77	81	84	88	86	100	84
98	97	87	89	98	90	105	99	88	97
102	81	88	104	88	92	82	111	97	95
100	88	93	89	90	86	89	105	78	88
97	82	101	107	85	117	114	123	108	121
92	82	88	96	79	88	81	102	81	97
114	100	113	111	107	86	73	82	96	82
88	91	95	84	82	78	82	86	84	82
96	111	99	83	98	104	110	117	104	108
91	102	85	82	84	89	93	94	87	90
114	105	105	105	99	99	114	110	98	113
91	92	105	100	89	84	91	86	89	86
114	100	96	111	105	89	97	109	93	105
89	82	88	90	94	95	97	118	89	105
103	91	93	87	92	58	68	64	63	60
83	71	93	90	81	77	72	78	84	75
74	71	69	67	NA	77	81	86	82	79
88	89	83	84	86	98	102	98	105	104
88	82	83	84	90	58	62	64	70	60
98	105	93	96	101	81	102	84	94	87
74	71	69	67	73	92	84	87	101	93
86	91	86	90	88	94	75	88	83	85
93	105	90	83	90	87	102	106	88	97
85	82	87	78	84	75	62	78	69	67
91	86	92	100	89	80	100	79	94	85
75	72	75	67	73	84	82	95	82	86
97	98	89	94	98	87	78	98	82	88
88	80	88	89	82	114	106	101	109	114
79	84	87	89	77	97	88	104	86	97
106	109	113	111	107	102	85	91	99	93
102	80	102	88	84	80	97	78	82	80
98	112	101	94	93	112	114	123	114	118
98	86	87	111	96	104	105	109	99	109
114	112	105	111	107	75	100	77	91	81
95	90	101	105	95	82	72	77	81	79
98	96	79	97	89	92	106	102	102	104
82	84	86	83	82	102	78	88	101	97
97	94	95	105	92	73	80	81	72	75
94	112	104	69	100	78	88	83	91	82
84	81	79	80	75	74	62	72	83	71
88	105	86	87	94	92	93	95	102	92
83	77	81	67	83	97	87	109	103	104
98	105	92	92	92	92	109	91	93	99
106	112	95	102	102	91	91	87	88	89
94	91	97	90	98	102	110	112	110	114
91	92	87	98	94	89	98	95	100	95
89	72	94	94	83	98	99	103	88	106
102	100	105	101	107	117	95	108	119	117
103	103	94	96	107	92	97	116	98	109
96	89	88	94	91	70	88	71	90	74
89	86	105	105	83	63	72	70	69	63
112	112	113	105	100	91	102	105	98	103
74	71	69	84	77	106	95	112	98	107
74	73	69	72	74	81	93	86	81	86
102	99	100	96	92	98	90	109	93	99
106	85	113	94	100	88	80	112	91	87
91	80	88	107	92	95	75	97	86	93
94	88	104	103	93	105	109	122	95	114
98	95	94	95	89	90	75	97	87	82
85	86	91	73	86	58	72	64	63	60
108	92	103	110	97	86	77	84	89	83
90	96	95	84	82	112	93	110	108	111
74	71	69	67	73	71	72	70	99	75
81	88	86	73	93	98	91	100	90	94
104	98	108	84	97	87	95	102	91	91
90	108	83	79	93	98	111	108	82	100
95	103	102	91	89	117	105	123	119	121
85	81	94	92	86	98	90	78	97	90
114	96	113	107	89	98	105	109	108	105
114	112	113	111	107	90	90	106	101	97
93	95	93	89	90	84	92	95	96	92
104	92	105	110	104	86	95	108	97	92
92	103	88	98	96	68	75	74	69	67
100	95	90	95	93	86	92	86	89	90
92	94	92	84	104	77	100	82	84	85
77	79	81	73	83	83	82	88	79	85
86	91	86	86	92	90	102	96	103	97
87	87	85	98	83	107	104	114	92	118
91	82	86	90	83	102	98	111	104	109
102	97	97	97	96	90	95	88	102	94
100	92	103	106	84	113	114	123	106	121
113	112	102	106	107	86	93	89	93	85

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=180286&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 time3 seconds
R Server'George Udny Yule' @ yule.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
WJ10AFS74869299114
WJ10AVA71829197.5112
WJ10ARD69869099.5113
WJ10AMA67849098111
WJ10AKN73839096107
WJ7ARD5880.588.597117
WJ7AMA6279.59198.5114
WJ7AWL6482.592.5106123
WJ7AKN63829198.5119
WJ7ASK60829099121

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WJ10AFS & 74 & 86 & 92 & 99 & 114 \tabularnewline
WJ10AVA & 71 & 82 & 91 & 97.5 & 112 \tabularnewline
WJ10ARD & 69 & 86 & 90 & 99.5 & 113 \tabularnewline
WJ10AMA & 67 & 84 & 90 & 98 & 111 \tabularnewline
WJ10AKN & 73 & 83 & 90 & 96 & 107 \tabularnewline
WJ7ARD & 58 & 80.5 & 88.5 & 97 & 117 \tabularnewline
WJ7AMA & 62 & 79.5 & 91 & 98.5 & 114 \tabularnewline
WJ7AWL & 64 & 82.5 & 92.5 & 106 & 123 \tabularnewline
WJ7AKN & 63 & 82 & 91 & 98.5 & 119 \tabularnewline
WJ7ASK & 60 & 82 & 90 & 99 & 121 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=180286&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]WJ10AFS[/C][C]74[/C][C]86[/C][C]92[/C][C]99[/C][C]114[/C][/ROW]
[ROW][C]WJ10AVA[/C][C]71[/C][C]82[/C][C]91[/C][C]97.5[/C][C]112[/C][/ROW]
[ROW][C]WJ10ARD[/C][C]69[/C][C]86[/C][C]90[/C][C]99.5[/C][C]113[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]67[/C][C]84[/C][C]90[/C][C]98[/C][C]111[/C][/ROW]
[ROW][C]WJ10AKN[/C][C]73[/C][C]83[/C][C]90[/C][C]96[/C][C]107[/C][/ROW]
[ROW][C]WJ7ARD[/C][C]58[/C][C]80.5[/C][C]88.5[/C][C]97[/C][C]117[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]62[/C][C]79.5[/C][C]91[/C][C]98.5[/C][C]114[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]64[/C][C]82.5[/C][C]92.5[/C][C]106[/C][C]123[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]63[/C][C]82[/C][C]91[/C][C]98.5[/C][C]119[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]60[/C][C]82[/C][C]90[/C][C]99[/C][C]121[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=180286&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=180286&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
WJ10AFS74869299114
WJ10AVA71829197.5112
WJ10ARD69869099.5113
WJ10AMA67849098111
WJ10AKN73839096107
WJ7ARD5880.588.597117
WJ7AMA6279.59198.5114
WJ7AWL6482.592.5106123
WJ7AKN63829198.5119
WJ7ASK60829099121






Boxplot Means
Variabletrimmed meanunbiased SD
WJ10AFS93.0910.45
WJ10AVA90.7211.14
WJ10ARD91.5310.4
WJ10AMA90.3511.84
WJ10AKN89.769.22
WJ7ARD88.412.61
WJ7AMA89.6513
WJ7AWL93.6114.84
WJ7AKN90.1212.3
WJ7ASK91.1514.2

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
WJ10AFS & 93.09 & 10.45 \tabularnewline
WJ10AVA & 90.72 & 11.14 \tabularnewline
WJ10ARD & 91.53 & 10.4 \tabularnewline
WJ10AMA & 90.35 & 11.84 \tabularnewline
WJ10AKN & 89.76 & 9.22 \tabularnewline
WJ7ARD & 88.4 & 12.61 \tabularnewline
WJ7AMA & 89.65 & 13 \tabularnewline
WJ7AWL & 93.61 & 14.84 \tabularnewline
WJ7AKN & 90.12 & 12.3 \tabularnewline
WJ7ASK & 91.15 & 14.2 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=180286&T=2

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]WJ10AFS[/C][C]93.09[/C][C]10.45[/C][/ROW]
[ROW][C]WJ10AVA[/C][C]90.72[/C][C]11.14[/C][/ROW]
[ROW][C]WJ10ARD[/C][C]91.53[/C][C]10.4[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]90.35[/C][C]11.84[/C][/ROW]
[ROW][C]WJ10AKN[/C][C]89.76[/C][C]9.22[/C][/ROW]
[ROW][C]WJ7ARD[/C][C]88.4[/C][C]12.61[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]89.65[/C][C]13[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]93.61[/C][C]14.84[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]90.12[/C][C]12.3[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]91.15[/C][C]14.2[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=180286&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=180286&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
WJ10AFS93.0910.45
WJ10AVA90.7211.14
WJ10ARD91.5310.4
WJ10AMA90.3511.84
WJ10AKN89.769.22
WJ7ARD88.412.61
WJ7AMA89.6513
WJ7AWL93.6114.84
WJ7AKN90.1212.3
WJ7ASK91.1514.2


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 3 ; par2 = FALSE ; par3 = 0 ;
Parameters (R input):
par1 = 3 ; 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, 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')