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 computationWed, 30 May 2012 07:12:56 -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/May/30/t1338376408r2hhbab0vh2vtmv.htm/, Retrieved Fri, 03 May 2024 19:10:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=167997, Retrieved Fri, 03 May 2024 19:10:32 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram, QQplot and Density] [Female Weights (A...] [2012-05-30 09:42:23] [68da2a3ec537521c4857f5c0bd5ed145]
- RM D  [CARE Data - Boxplots and Scatterplot Matrix] [Weight Data] [2012-05-30 10:56:53] [68da2a3ec537521c4857f5c0bd5ed145]
- R  D      [CARE Data - Boxplots and Scatterplot Matrix] [Weight Data witho...] [2012-05-30 11:12:56] [784e4f8c7c58de81885d4525a9d3f3e7] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
39	41
44	44
48	44
45	45
45	45
47	45
47	47
50	47
47	47
50	49
50	50
50	50
50	50
51	50
53	50
58	51
52	51
53	51
52	51
51	51
51	52
52	52
53	52
52	52
53	52
54	53
53	53
56	53
53	53
52	53
53	54
56	54
55	54
54	54
58	54
54	55
50	55
60	55
55	55
57	55
59	55
55	55
53	55
54	55
55	55
55	55
59	55
60	55
54	56
56	56
57	56
56	56
57	56
56	56
52	57
56	57
56	57
56	57
55	57
57	58
59	58
59	59
54	59
63	59
60	59
57	59
59	59
63	59
59	59
58	60
61	60
61	61
61	61
63	61
62	61
62	61
62	61
62	62
64	62
62	62
64	62
63	62
68	63
64	63
62	63
64	64
63	64
64	64
65	66
64	66
66	66
70	67
68	68
68	68
71	71
75	75
78	75
76	77
55	56
57	58
54	58
56	58
59	61
61	61
63	63
65	64
65	64
62	64
64	65
65	66
66	66
62	66
65	66
65	67
67	67
66	67
70	68
66	68
69	68
71	68
68	68
69	69
68	69
68	70
66	70
75	70
69	70
69	70
70	70
71	71
71	71
69	71
74	71
69	73
75	73
74	73
69	73
73	74
70	75
76	75
76	75
76	75
76	76
79	76
71	76
80	76
75	76
77	77
76	77
78	77
80	78
79	79
80	80
78	80
83	80
79	81
85	82
81	82
83	83
85	83
83	84
82	85
88	86
84	86
88	86
89	86
88	87
87	89
84	90
90	91
90	91
88	93
96	94
96	95
97	98
101	100
92	101
103	101
102	107
119	124

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'Gwilym Jenkins' @ jenkins.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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=167997&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' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=167997&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=167997&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'Gwilym Jenkins' @ jenkins.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
weight3955.56374.5103
repwt41556374.5101

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
weight & 39 & 55.5 & 63 & 74.5 & 103 \tabularnewline
repwt & 41 & 55 & 63 & 74.5 & 101 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=167997&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]weight[/C][C]39[/C][C]55.5[/C][C]63[/C][C]74.5[/C][C]103[/C][/ROW]
[ROW][C]repwt[/C][C]41[/C][C]55[/C][C]63[/C][C]74.5[/C][C]101[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=167997&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=167997&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
weight3955.56374.5103
repwt41556374.5101






Boxplot Notches
Variablelower boundmedianupper bound
weight60.766365.24
repwt60.76365.3

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
weight & 60.76 & 63 & 65.24 \tabularnewline
repwt & 60.7 & 63 & 65.3 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=167997&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]weight[/C][C]60.76[/C][C]63[/C][C]65.24[/C][/ROW]
[ROW][C]repwt[/C][C]60.7[/C][C]63[/C][C]65.3[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=167997&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=167997&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
weight60.766365.24
repwt60.76365.3






Boxplot Means
Variabletrimmed meanunbiased SD
weight65.7513.45
repwt65.7313.85

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
weight & 65.75 & 13.45 \tabularnewline
repwt & 65.73 & 13.85 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=167997&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]weight[/C][C]65.75[/C][C]13.45[/C][/ROW]
[ROW][C]repwt[/C][C]65.73[/C][C]13.85[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=167997&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=167997&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
weight65.7513.45
repwt65.7313.85


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 10 ;
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')