Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_BoxplotAndScatterplotMatrix.wasp

Title produced by software

Boxplot and Trimmed Means

Date of computation

Wed, 03 Dec 2014 19:45:31 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/03/t1417635950lrt1032rucnnxiy.htm/, Retrieved Thu, 16 May 2024 11:32:58 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=263031, Retrieved Thu, 16 May 2024 11:32:58 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Boxplot and Trimmed Means] [Distribution] [2014-12-03 19:45:31] [af4ea51fd302d6a312b1a5c0f8d4e4e4] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

75	26	16	14
79	29	18	15
81	30	18	20
81	33	18	20
82	34	18	20
82	34	19	20
82	35	19	20
83	36	19	20
83	36	20	24
84	37	20	25
84	39	20	26
85	40	20	26
85	40	21	26
85	40	21	30
86	42	21	30
86	43	21	30
88	43	22	34
88	44	23	34
88	44	23	35
89	44	23	35
89	44	24	35
90	44	24	35
91	45	24	35
91	45	25	40
91	46	25	40
92	46	25	40
92	46	25	40
93	47	25	40
93	47	26	40
94	48	26	45
95	48	26	45
95	48	26	45
95	48	26	45
95	49	26	45
95	49	27	45
95	49	27	46
96	49	27	48
96	49	27	50
97	50	27	50
98	50	27	50
98	50	28	50
99	50	28	50
100	50	28	50
100	50	28	52
100	50	28	54
101	50	28	54
101	50	29	54
102	51	29	55
102	51	29	55
102	52	29	55
103	52	29	55
103	53	29	55
104	53	30	55
105	53	30	55
105	54	30	55
105	55	30	55
106	55	31	55
106	56	31	60
106	57	32	60
106	57	32	60
107	58	32	60
107	58	32	60
107	59	32	60
108	60	33	60
108	60	33	60
108	60	33	60
109	61	33	60
109	62	33	60
109	62	34	60
110	63	34	60
111	64	34	65
111	65	36	65
111	65	37	65
111	65	37	66
112	65	37	68
114	66	37	70
115	68	37	70
115	69	38	70
118	69	38	70
118	70	39	71
118	70	39	75
120	72	39	75
120	74	40	75
121	75	41	78
127	76	44	80
128	76	45	80
129	78	45	85
131	79	46	90

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.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=263031&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]'Gertrude Mary Cox' @ cox.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=263031&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=263031&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gertrude Mary Cox' @ cox.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
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
IQ	75	90.5	100	108.5	131
ADD	26	44.5	50	60.5	79
MUMAGE	16	24	28	33	46
GRADE	14	35	53	60	90

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
IQ & 75 & 90.5 & 100 & 108.5 & 131 \tabularnewline
ADD & 26 & 44.5 & 50 & 60.5 & 79 \tabularnewline
MUMAGE & 16 & 24 & 28 & 33 & 46 \tabularnewline
GRADE
 & 14 & 35 & 53 & 60 & 90 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=263031&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]IQ[/C][C]75[/C][C]90.5[/C][C]100[/C][C]108.5[/C][C]131[/C][/ROW]
[ROW][C]ADD[/C][C]26[/C][C]44.5[/C][C]50[/C][C]60.5[/C][C]79[/C][/ROW]
[ROW][C]MUMAGE[/C][C]16[/C][C]24[/C][C]28[/C][C]33[/C][C]46[/C][/ROW]
[ROW][C]GRADE
[/C][C]14[/C][C]35[/C][C]53[/C][C]60[/C][C]90[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=263031&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=263031&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
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
IQ	75	90.5	100	108.5	131
ADD	26	44.5	50	60.5	79
MUMAGE	16	24	28	33	46
GRADE	14	35	53	60	90

Boxplot Notches
Variable	lower bound	median	upper bound
IQ	96.97	100	103.03
ADD	47.31	50	52.69
MUMAGE	26.48	28	29.52
GRADE	48.79	53	57.21

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
IQ & 96.97 & 100 & 103.03 \tabularnewline
ADD & 47.31 & 50 & 52.69 \tabularnewline
MUMAGE & 26.48 & 28 & 29.52 \tabularnewline
GRADE
 & 48.79 & 53 & 57.21 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=263031&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]IQ[/C][C]96.97[/C][C]100[/C][C]103.03[/C][/ROW]
[ROW][C]ADD[/C][C]47.31[/C][C]50[/C][C]52.69[/C][/ROW]
[ROW][C]MUMAGE[/C][C]26.48[/C][C]28[/C][C]29.52[/C][/ROW]
[ROW][C]GRADE
[/C][C]48.79[/C][C]53[/C][C]57.21[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=263031&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=263031&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
Variable	lower bound	median	upper bound
IQ	96.97	100	103.03
ADD	47.31	50	52.69
MUMAGE	26.48	28	29.52
GRADE	48.79	53	57.21

Boxplot Means
Variable	trimmed mean	unbiased SD
IQ	100.17	12.75
ADD	52.43	12.02
MUMAGE	28.88	7
GRADE	49.72	17.53

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
IQ & 100.17 & 12.75 \tabularnewline
ADD & 52.43 & 12.02 \tabularnewline
MUMAGE & 28.88 & 7 \tabularnewline
GRADE
 & 49.72 & 17.53 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=263031&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]IQ[/C][C]100.17[/C][C]12.75[/C][/ROW]
[ROW][C]ADD[/C][C]52.43[/C][C]12.02[/C][/ROW]
[ROW][C]MUMAGE[/C][C]28.88[/C][C]7[/C][/ROW]
[ROW][C]GRADE
[/C][C]49.72[/C][C]17.53[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=263031&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=263031&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
Variable	trimmed mean	unbiased SD
IQ	100.17	12.75
ADD	52.43	12.02
MUMAGE	28.88	7
GRADE	49.72	17.53

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 3 ; par2 = TRUE ; par3 = 0 ;

Parameters (R input):

par1 = 3 ; par2 = TRUE ; 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(unlist(z[i]), trim=par3/100, na.rm=TRUE), digits=2))
a<-table.element(a,round(sd(unlist(z[i]), na.rm=TRUE), digits=2))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code