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 06:56:53 -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/t1338375451pytzgv1jqnnldzv.htm/, Retrieved Fri, 03 May 2024 21:25:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=167992, Retrieved Fri, 03 May 2024 21:25:38 +0000
QR Codes:

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

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] [784e4f8c7c58de81885d4525a9d3f3e7] [Current]
- R  D      [CARE Data - Boxplots and Scatterplot Matrix] [Height Data] [2012-05-30 11:04:11] [68da2a3ec537521c4857f5c0bd5ed145]
- R  D      [CARE Data - Boxplots and Scatterplot Matrix] [Height - Actual V...] [2012-05-30 11:10:37] [68da2a3ec537521c4857f5c0bd5ed145]
- R  D      [CARE Data - Boxplots and Scatterplot Matrix] [Weight Data witho...] [2012-05-30 11:12:56] [68da2a3ec537521c4857f5c0bd5ed145]
- RM D      [One-Way-Between-Groups ANOVA- Free Statistics Software (Calculator)] [Actual Vs Reporte...] [2012-05-30 11:25:17] [68da2a3ec537521c4857f5c0bd5ed145]
- R           [One-Way-Between-Groups ANOVA- Free Statistics Software (Calculator)] [Actual Vs Reporte...] [2012-05-30 11:26:19] [68da2a3ec537521c4857f5c0bd5ed145]
Feedback Forum

Post a new message

Dataset

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=167992&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
fweight4453566275
mweight54687583103
frepwt4152566171
mrepwt56687583101

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
fweight & 44 & 53 & 56 & 62 & 75 \tabularnewline
mweight & 54 & 68 & 75 & 83 & 103 \tabularnewline
frepwt & 41 & 52 & 56 & 61 & 71 \tabularnewline
mrepwt & 56 & 68 & 75 & 83 & 101 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=167992&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]fweight[/C][C]44[/C][C]53[/C][C]56[/C][C]62[/C][C]75[/C][/ROW]
[ROW][C]mweight[/C][C]54[/C][C]68[/C][C]75[/C][C]83[/C][C]103[/C][/ROW]
[ROW][C]frepwt[/C][C]41[/C][C]52[/C][C]56[/C][C]61[/C][C]71[/C][/ROW]
[ROW][C]mrepwt[/C][C]56[/C][C]68[/C][C]75[/C][C]83[/C][C]101[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=167992&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=167992&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
fweight4453566275
mweight54687583103
frepwt4152566171
mrepwt56687583101






Boxplot Notches
Variablelower boundmedianupper bound
fweight54.565657.44
mweight72.387577.62
frepwt54.565657.44
mrepwt72.387577.62

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
fweight & 54.56 & 56 & 57.44 \tabularnewline
mweight & 72.38 & 75 & 77.62 \tabularnewline
frepwt & 54.56 & 56 & 57.44 \tabularnewline
mrepwt & 72.38 & 75 & 77.62 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=167992&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]fweight[/C][C]54.56[/C][C]56[/C][C]57.44[/C][/ROW]
[ROW][C]mweight[/C][C]72.38[/C][C]75[/C][C]77.62[/C][/ROW]
[ROW][C]frepwt[/C][C]54.56[/C][C]56[/C][C]57.44[/C][/ROW]
[ROW][C]mrepwt[/C][C]72.38[/C][C]75[/C][C]77.62[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=167992&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=167992&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
fweight54.565657.44
mweight72.387577.62
frepwt54.565657.44
mrepwt72.387577.62






Boxplot Means
Variabletrimmed meanunbiased SD
fweight57.196.923
mweight75.9812.16
frepwt56.676.788
mrepwt76.5612.29

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
fweight & 57.19 & 6.923 \tabularnewline
mweight & 75.98 & 12.16 \tabularnewline
frepwt & 56.67 & 6.788 \tabularnewline
mrepwt & 76.56 & 12.29 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=167992&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]fweight[/C][C]57.19[/C][C]6.923[/C][/ROW]
[ROW][C]mweight[/C][C]75.98[/C][C]12.16[/C][/ROW]
[ROW][C]frepwt[/C][C]56.67[/C][C]6.788[/C][/ROW]
[ROW][C]mrepwt[/C][C]76.56[/C][C]12.29[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=167992&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=167992&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
fweight57.196.923
mweight75.9812.16
frepwt56.676.788
mrepwt76.5612.29


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