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, 01 Jun 2012 06:16:08 -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/Jun/01/t1338545779dnome1v9q69q530.htm/, Retrieved Thu, 02 May 2024 04:50:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168619, Retrieved Thu, 02 May 2024 04:50:13 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Simple Linear Regression] [Triglyceridge Reg...] [2011-07-07 15:11:49] [74be16979710d4c4e7c6647856088456]
- R     [Simple Linear Regression] [Triglyceride] [2012-05-04 19:33:41] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R       [Simple Linear Regression] [influence of leve...] [2012-06-01 08:56:32] [c14255f5a914c4d7aab5f6cd60318f9b]
- RMPD      [CARE Data - Boxplots and Scatterplot Matrix] [] [2012-06-01 10:12:53] [c14255f5a914c4d7aab5f6cd60318f9b]
- R  D          [CARE Data - Boxplots and Scatterplot Matrix] [] [2012-06-01 10:16:08] [0507bbe3d00274d9f4e781e2396a3b5a] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
50	148
50	160
52	152
47	150
39	157
52	159
45	157
52	158
44	157
55	160
59	159
53	158
50	158
53	161
51	161
54	160
75	162
63	160
56	160
59	157
53	162
51	156
58	161
63	163
56	163
52	163
58	166
54	164
60	162
57	163
57	162
56	165
47	163
45	163
53	164
53	162
52	163
47	162
48	163
51	163
54	161
63	165
56	162
52	164
64	164
50	166
56	161
56	163
62	164
166	57
56	165
64	165
55	165
61	165
60	167
55	164
59	166
62	168
55	165
62	166
53	165
57	167
76	170
76	167
64	168
65	166
62	168
50	166
71	166
56	166
68	165
53	165
50	169
64	166
76	167
75	169
69	167
55	165
57	168
54	169
57	167
66	166
76	169
66	170
59	164
58	169
54	171
63	169
64	172
63	170
62	168
60	172
75	172
78	173
68	171
65	171
61	170
66	173
68	169
74	169
57	173
71	177
55	168
56	170
70	173
70	173
61	170
61	175
69	174
62	175
79	179
55	174
64	171
59	172
65	176
65	175
79	173
54	174
62	175
68	174
70	173
89	173
70	175
69	172
68	177
71	178
75	178
64	176
88	178
85	179
71	180
80	178
66	173
53	169
62	178
63	178
78	178
68	178
83	177
66	175
81	178
80	176
74	175
54	176
119	180
80	178
65	178
71	178
90	181
79	177
67	179
77	182
69	186
101	183
78	183
73	183
69	182
69	180
76	183
83	180
83	184
103	185
82	182
69	183
59	182
84	184
84	183
96	184
88	184
92	187
102	185
97	189
88	189
87	185
90	188
65	187
85	191
96	191
88	185
76	197

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168619&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'Gertrude Mary Cox' @ cox.wessa.net






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
h & 39 & 55.5 & 63.5 & 75 & 103 \tabularnewline
w & 148 & 164 & 169.5 & 178 & 197 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168619&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]h[/C][C]39[/C][C]55.5[/C][C]63.5[/C][C]75[/C][C]103[/C][/ROW]
[ROW][C]w[/C][C]148[/C][C]164[/C][C]169.5[/C][C]178[/C][C]197[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168619&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168619&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
h3955.563.575103
w148164169.5178197






Boxplot Notches
Variablelower boundmedianupper bound
h61.263.565.8
w167.9169.5171.1

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
h & 61.2 & 63.5 & 65.8 \tabularnewline
w & 167.9 & 169.5 & 171.1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168619&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]h[/C][C]61.2[/C][C]63.5[/C][C]65.8[/C][/ROW]
[ROW][C]w[/C][C]167.9[/C][C]169.5[/C][C]171.1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168619&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168619&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 Notches
Variablelower boundmedianupper bound
h61.263.565.8
w167.9169.5171.1






Boxplot Means
Variabletrimmed meanunbiased SD
h66.3415.37
w170.212.31

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
h & 66.34 & 15.37 \tabularnewline
w & 170.2 & 12.31 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168619&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]h[/C][C]66.34[/C][C]15.37[/C][/ROW]
[ROW][C]w[/C][C]170.2[/C][C]12.31[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168619&T=3

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

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
h66.3415.37
w170.212.31


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = two.sided ; par2 = 1 ; par3 = 2 ;
Parameters (R input):
par1 = 3 ; par2 = TRUE ; par3 = 0 ;
R code (references can be found in the software module):
par3 <- '0'
par2 <- 'TRUE'
par1 <- '3'
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,signif(r$stats[j,i], digits=4))
}
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,signif(r$conf[1,i], digits=4))
a<-table.element(a, signif(r$stats[3,i], digits=4))
a<-table.element(a,signif(r$conf[2,i], digits=4))
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,signif(mean(z[i], trim=par3/100, na.rm=TRUE), digits=4))
a<-table.element(a,signif(sd(z[i], na.rm=TRUE), digits=4))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')