FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_CARE Data Boxplot.wasp
Title produced by softwareCARE Data - Boxplots and Scatterplot Matrix
Date of computationTue, 25 Oct 2011 05:04:34 -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/2011/Oct/25/t1319533522uts8rl0vejqrtq9.htm/, Retrieved Thu, 16 May 2024 05:32:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=135231, Retrieved Thu, 16 May 2024 05:32:39 +0000
QR Codes:

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

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 PD        [CARE Data - Boxplots and Scatterplot Matrix] [] [2011-10-25 08:42:36] [74be16979710d4c4e7c6647856088456]
-   PD            [CARE Data - Boxplots and Scatterplot Matrix] [] [2011-10-25 09:04:34] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

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

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'Herman Ole Andreas Wold' @ wold.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=135231&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=135231&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=135231&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'Herman Ole Andreas Wold' @ wold.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
WJ7ARD588288.598117
WJ10ARD79869095108
WJ7AMA62819198114
WJ10AMA67849096111
WJ7AKN63839299119
WJ10AKN 73849095107

\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 & 79 & 86 & 90 & 95 & 108 \tabularnewline
WJ7AMA & 62 & 81 & 91 & 98 & 114 \tabularnewline
WJ10AMA & 67 & 84 & 90 & 96 & 111 \tabularnewline
WJ7AKN & 63 & 83 & 92 & 99 & 119 \tabularnewline
WJ10AKN
 & 73 & 84 & 90 & 95 & 107 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=135231&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]79[/C][C]86[/C][C]90[/C][C]95[/C][C]108[/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]96[/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]84[/C][C]90[/C][C]95[/C][C]107[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=135231&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=135231&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
WJ7ARD588288.598117
WJ10ARD79869095108
WJ7AMA62819198114
WJ10AMA67849096111
WJ7AKN63839299119
WJ10AKN 73849095107






Boxplot Means
Variabletrimmed meanunbiased SD
WJ7ARD88.6812.64
WJ10ARD91.78.03
WJ7AMA90.1712.52
WJ10AMA90.639.57
WJ7AKN91.4112.07
WJ10AKN 89.97.9

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
WJ7ARD & 88.68 & 12.64 \tabularnewline
WJ10ARD & 91.7 & 8.03 \tabularnewline
WJ7AMA & 90.17 & 12.52 \tabularnewline
WJ10AMA & 90.63 & 9.57 \tabularnewline
WJ7AKN & 91.41 & 12.07 \tabularnewline
WJ10AKN
 & 89.9 & 7.9 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=135231&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.7[/C][C]8.03[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]90.17[/C][C]12.52[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]90.63[/C][C]9.57[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]91.41[/C][C]12.07[/C][/ROW]
[ROW][C]WJ10AKN
[/C][C]89.9[/C][C]7.9[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=135231&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=135231&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.6812.64
WJ10ARD91.78.03
WJ7AMA90.1712.52
WJ10AMA90.639.57
WJ7AKN91.4112.07
WJ10AKN 89.97.9


Figures (Output of Computation)

Input Parameters & R Code

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