Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software ModuleIan.Hollidayrwasp_CARE Data Boxplot.wasp
Title produced by softwareCARE Data - Boxplots and Scatterplot Matrix
Date of computationMon, 25 Oct 2010 09:57:49 +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/25/t1288000766idkz2jwyeardae2.htm/, Retrieved Thu, 31 Oct 2024 23:13:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=88024, Retrieved Thu, 31 Oct 2024 23:13:01 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact204
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]
-   PD      [CARE Data - Boxplots and Scatterplot Matrix] [10% trimmed] [2010-10-25 09:47:18] [bbe2ba08a2e1004d231616e60eeea4d7]
-   P           [CARE Data - Boxplots and Scatterplot Matrix] [10% trimmed notched] [2010-10-25 09:57:49] [30c3eedcc52494e052f31ddf0bfb617b] [Current]
Feedback Forum

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




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=88024&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=88024&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88024&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 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
WJ7ARD74848894104
WJ7AMA72829197105
WJ7AWL778492102112
WJ7AKN75869298105
WJ7ASK74859097110

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WJ7ARD & 74 & 84 & 88 & 94 & 104 \tabularnewline
WJ7AMA & 72 & 82 & 91 & 97 & 105 \tabularnewline
WJ7AWL & 77 & 84 & 92 & 102 & 112 \tabularnewline
WJ7AKN & 75 & 86 & 92 & 98 & 105 \tabularnewline
WJ7ASK & 74 & 85 & 90 & 97 & 110 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88024&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]74[/C][C]84[/C][C]88[/C][C]94[/C][C]104[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]72[/C][C]82[/C][C]91[/C][C]97[/C][C]105[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]77[/C][C]84[/C][C]92[/C][C]102[/C][C]112[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]75[/C][C]86[/C][C]92[/C][C]98[/C][C]105[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]74[/C][C]85[/C][C]90[/C][C]97[/C][C]110[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88024&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88024&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
Variablelower whiskerlower hingemedianupper hingeupper whisker
WJ7ARD74848894104
WJ7AMA72829197105
WJ7AWL778492102112
WJ7AKN75869298105
WJ7ASK74859097110







Boxplot Notches
Variablelower boundmedianupper bound
WJ7ARD86.618889.39
WJ7AMA88.919193.09
WJ7AWL89.59294.5
WJ7AKN90.339293.67
WJ7ASK88.339091.67

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
WJ7ARD & 86.61 & 88 & 89.39 \tabularnewline
WJ7AMA & 88.91 & 91 & 93.09 \tabularnewline
WJ7AWL & 89.5 & 92 & 94.5 \tabularnewline
WJ7AKN & 90.33 & 92 & 93.67 \tabularnewline
WJ7ASK & 88.33 & 90 & 91.67 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88024&T=2

[TABLE]
[ROW][C]Boxplot Notches[/C][/ROW]
[ROW][C]Variable[/C][C]lower bound[/C][C]median[/C][C]upper bound[/C][/ROW]
[ROW][C]WJ7ARD[/C][C]86.61[/C][C]88[/C][C]89.39[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]88.91[/C][C]91[/C][C]93.09[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]89.5[/C][C]92[/C][C]94.5[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]90.33[/C][C]92[/C][C]93.67[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]88.33[/C][C]90[/C][C]91.67[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88024&T=2

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

As an alternative you can also use a QR Code:  

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

Boxplot Notches
Variablelower boundmedianupper bound
WJ7ARD86.618889.39
WJ7AMA88.919193.09
WJ7AWL89.59294.5
WJ7AKN90.339293.67
WJ7ASK88.339091.67







Boxplot Means
Variabletrimmed meanunbiased SD
WJ7ARD88.597.39
WJ7AMA90.299.03
WJ7AWL92.8910.12
WJ7AKN91.827.46
WJ7ASK90.618.86

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
WJ7ARD & 88.59 & 7.39 \tabularnewline
WJ7AMA & 90.29 & 9.03 \tabularnewline
WJ7AWL & 92.89 & 10.12 \tabularnewline
WJ7AKN & 91.82 & 7.46 \tabularnewline
WJ7ASK & 90.61 & 8.86 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88024&T=3

[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.59[/C][C]7.39[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]90.29[/C][C]9.03[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]92.89[/C][C]10.12[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]91.82[/C][C]7.46[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]90.61[/C][C]8.86[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88024&T=3

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

As an alternative you can also use a QR Code:  

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

Boxplot Means
Variabletrimmed meanunbiased SD
WJ7ARD88.597.39
WJ7AMA90.299.03
WJ7AWL92.8910.12
WJ7AKN91.827.46
WJ7ASK90.618.86



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