Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

Ian.Hollidayrwasp_CARE Data Boxplot.wasp

Title produced by software

CARE Data - Boxplots and Scatterplot Matrix

Date of computation

Mon, 25 Oct 2010 18:40:38 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Oct/25/t1288032004gsrwf3pmo8on2jf.htm/, Retrieved Mon, 29 Apr 2024 18:16:05 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=88324, Retrieved Mon, 29 Apr 2024 18:16:05 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

131

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]
- R  D      [CARE Data - Boxplots and Scatterplot Matrix] [CARE Age 7 Data] [2010-10-24 16:42:34] [13cbcb281e02e9f7e58d2a23c439b7ed]
-    D        [CARE Data - Boxplots and Scatterplot Matrix] [CARE Age 10 Data] [2010-10-24 18:46:13] [13cbcb281e02e9f7e58d2a23c439b7ed]
-    D          [CARE Data - Boxplots and Scatterplot Matrix] [CARE Age 10 Data ] [2010-10-24 20:30:15] [13cbcb281e02e9f7e58d2a23c439b7ed]
-    D              [CARE Data - Boxplots and Scatterplot Matrix] [Comparison betwee...] [2010-10-25 18:40:38] [6120778087071c6bc029ce53d6db5087] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

89	69	62	67	83	73
90	69	62	67	102	73
82	69	62	67	75	73
82	69	62	67	92	73
71	69	68	67	94	73
80	69	70	67	88	73
62	75	71	69	77	73
77	77	71	72	63	74
80	79	72	72	73	75
87	79	72	73	85	77
96	81	72	73	80	77
80	81	72	73	77	77
85	83	72	73	67	78
89	83	72	75	98	79
89	83	72	77	89	80
73	83	72	78	63	81
88	84	72	79	97	81
86	84	72	80	77	82
83	84	73	80	96	82
91	84	74	81	84	82
98	84	74	81	94	82
80	84	75	82	70	82
84	85	75	83	100	82
90	85	75	83	88	83
92	85	75	83	97	83
86	86	75	84	78	83
117	86	75	84	108	83
88	86	75	84	81	83
86	86	77	84	96	83
78	86	77	84	84	84
104	86	78	84	104	84
89	86	78	84	87	84
99	87	78	84	98	84
84	87	78	85	89	84
89	87	79	86	93	85
95	87	79	86	89	86
58	87	79	87	63	86
77	87	80	87	84	86
77	88	80	87	82	86
98	88	81	87	105	87
58	88	81	88	70	88
81	88	81	88	94	88
92	88	82	88	101	88
94	88	82	89	83	89
87	88	82	89	88	89
75	88	82	89	69	89
80	88	82	89	94	89
84	88	82	89	82	89
87	89	82	89	82	89
114	89	82	89	109	90
97	90	82	90	86	90
102	90	82	90	99	90
80	90	84	90	82	90
112	91	85	90	114	90
104	91	85	90	99	91
75	91	85	90	91	91
82	92	86	90	81	91
92	92	87	91	102	92
102	92	87	91	101	92
73	92	87	91	72	92
78	93	87	92	91	92
74	93	88	92	83	92
92	93	88	94	102	92
97	93	88	94	103	92
92	93	88	94	93	93
91	94	88	94	88	93
102	94	88	94	110	93
89	94	89	94	100	93
98	94	89	95	88	93
117	95	89	95	119	93
92	95	90	96	98	94
70	95	90	96	90	94
63	95	90	96	69	94
91	95	90	96	98	95
106	96	90	96	98	95
81	97	91	97	81	96
98	97	91	97	93	96
88	99	91	98	91	96
95	100	91	98	86	97
105	101	91	98	95	97
90	101	91	100	87	97
58	101	91	100	63	98
86	102	91	101	89	98
112	102	91	102	108	98
71	102	92	103	99	98
98	102	92	104	90	99
87	103	92	105	91	99
98	103	92	105	82	100
117	103	92	105	119	100
98	104	92	105	97	100
98	104	92	105	108	100
90	105	93	106	101	101
84	105	93	106	96	102
86	105	93	107	97	104
68	105	93	107	69	104
86	105	93	107	89	105
77	105	93	110	84	107
83	108	95	110	79	107
90	113	95	111	103	107
107	113	95	111	92	107
102	113	95	111	104	107
90	113	95	111	102	107
113	113	95	111	106	107
86	113	95	111	93	NA
105	NA	95	NA	108	NA
110	NA	95	NA	119	NA
82	NA	95	NA	102	NA
89	NA	95	NA	83	NA
99	NA	95	NA	92	NA
113	NA	96	NA	119	NA
91	NA	97	NA	100	NA
92	NA	97	NA	97	NA
86	NA	97	NA	103	NA
91	NA	97	NA	95	NA
82	NA	97	NA	73	NA
86	NA	97	NA	86	NA
86	NA	97	NA	88	NA
102	NA	97	NA	102	NA
84	NA	97	NA	87	NA
80	NA	97	NA	100	NA
96	NA	98	NA	88	NA
117	NA	98	NA	100	NA
88	NA	99	NA	79	NA
99	NA	100	NA	90	NA
89	NA	100	NA	83	NA
86	NA	100	NA	95	NA
98	NA	102	NA	89	NA
58	NA	102	NA	64	NA
98	NA	102	NA	108	NA
58	NA	102	NA	80	NA
81	NA	102	NA	83	NA
90	NA	102	NA	96	NA
112	NA	102	NA	108	NA
84	NA	102	NA	86	NA
84	NA	102	NA	88	NA
75	NA	104	NA	97	NA
78	NA	104	NA	110	NA
94	NA	104	NA	102	NA
75	NA	104	NA	92	NA
82	NA	105	NA	91	NA
87	NA	105	NA	92	NA
59	NA	105	NA	72	NA
68	NA	105	NA	88	NA
80	NA	105	NA	99	NA
94	NA	105	NA	95	NA
87	NA	106	NA	83	NA
70	NA	106	NA	68	NA
113	NA	108	NA	101	NA
99	NA	109	NA	91	NA
90	NA	109	NA	89	NA
102	NA	110	NA	98	NA
80	NA	110	NA	89	NA
98	NA	110	NA	98	NA
98	NA	110	NA	97	NA
95	NA	111	NA	98	NA
104	NA	113	NA	113	NA
86	NA	113	NA	83	NA
84	NA	113	NA	92	NA
85	NA	114	NA	113	NA
90	NA	114	NA	103	NA
86	NA	114	NA	96	NA
97	NA	114	NA	94	NA

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	23 seconds
R Server	'George Udny Yule' @ 72.249.76.132

\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 & 23 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88324&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]23 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88324&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88324&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	23 seconds
R Server	'George Udny Yule' @ 72.249.76.132

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
WJ7ARD	58	82	88.5	98	117
WJ10ARD	69	86	90	99.5	113
WJ7AMA	62	81	91	98	114
WJ10AMA	67	84	90	98	111
WJ7AKN	63	83	92	99	119
WJ10AKN	73	83	90	96	107

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WJ7ARD & 58 & 82 & 88.5 & 98 & 117 \tabularnewline
WJ10ARD & 69 & 86 & 90 & 99.5 & 113 \tabularnewline
WJ7AMA & 62 & 81 & 91 & 98 & 114 \tabularnewline
WJ10AMA & 67 & 84 & 90 & 98 & 111 \tabularnewline
WJ7AKN & 63 & 83 & 92 & 99 & 119 \tabularnewline
WJ10AKN & 73 & 83 & 90 & 96 & 107 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88324&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]58[/C][C]82[/C][C]88.5[/C][C]98[/C][C]117[/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]WJ7AMA[/C][C]62[/C][C]81[/C][C]91[/C][C]98[/C][C]114[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]67[/C][C]84[/C][C]90[/C][C]98[/C][C]111[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]63[/C][C]83[/C][C]92[/C][C]99[/C][C]119[/C][/ROW]
[ROW][C]WJ10AKN[/C][C]73[/C][C]83[/C][C]90[/C][C]96[/C][C]107[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88324&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88324&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
WJ7ARD	58	82	88.5	98	117
WJ10ARD	69	86	90	99.5	113
WJ7AMA	62	81	91	98	114
WJ10AMA	67	84	90	98	111
WJ7AKN	63	83	92	99	119
WJ10AKN	73	83	90	96	107

Boxplot Means
Variable	trimmed mean	unbiased SD
WJ7ARD	88.68	12.64
WJ10ARD	91.53	10.4
WJ7AMA	90.17	12.52
WJ10AMA	90.35	11.84
WJ7AKN	91.41	12.07
WJ10AKN	89.76	9.22

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
WJ7ARD & 88.68 & 12.64 \tabularnewline
WJ10ARD & 91.53 & 10.4 \tabularnewline
WJ7AMA & 90.17 & 12.52 \tabularnewline
WJ10AMA & 90.35 & 11.84 \tabularnewline
WJ7AKN & 91.41 & 12.07 \tabularnewline
WJ10AKN & 89.76 & 9.22 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88324&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.68[/C][C]12.64[/C][/ROW]
[ROW][C]WJ10ARD[/C][C]91.53[/C][C]10.4[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]90.17[/C][C]12.52[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]90.35[/C][C]11.84[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]91.41[/C][C]12.07[/C][/ROW]
[ROW][C]WJ10AKN[/C][C]89.76[/C][C]9.22[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88324&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88324&T=2

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Boxplot Means
Variable	trimmed mean	unbiased SD
WJ7ARD	88.68	12.64
WJ10ARD	91.53	10.4
WJ7AMA	90.17	12.52
WJ10AMA	90.35	11.84
WJ7AKN	91.41	12.07
WJ10AKN	89.76	9.22

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code