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_BoxplotAndScatterplotMatrix.wasp
Title produced by softwareBoxplot and Trimmed Means
Date of computationTue, 23 Dec 2014 07:23:01 +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/2014/Dec/23/t1419319394id7zm9r8sctj3l2.htm/, Retrieved Thu, 16 May 2024 12:22:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271410, Retrieved Thu, 16 May 2024 12:22:33 +0000
QR Codes:

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

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] [] [2014-10-11 09:05:01] [32b17a345b130fdf5cc88718ed94a974]
- R  D  [Histogram, QQplot and Density] [compmemomean NO] [2014-12-01 17:59:29] [db73a12161c07082da7682d758029ebc]
-    D    [Histogram, QQplot and Density] [compattenmean NO] [2014-12-01 18:04:36] [db73a12161c07082da7682d758029ebc]
-    D      [Histogram, QQplot and Density] [NO ] [2014-12-01 18:07:44] [db73a12161c07082da7682d758029ebc]
-    D        [Histogram, QQplot and Density] [Almost.. NO] [2014-12-01 18:15:27] [db73a12161c07082da7682d758029ebc]
-    D          [Histogram, QQplot and Density] [specattenmean NP....] [2014-12-01 18:19:37] [db73a12161c07082da7682d758029ebc]
- RMPD            [Correlation] [kendalls Tau] [2014-12-01 19:33:34] [db73a12161c07082da7682d758029ebc]
- RMPD              [Boxplot and Trimmed Means] [Scatter plot ] [2014-12-01 20:00:37] [db73a12161c07082da7682d758029ebc]
- R  D                  [Boxplot and Trimmed Means] [hapiness] [2014-12-23 07:23:01] [b1266da26a0b890274b48408df050392] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
36	88
56	94
48	90
32	73
44	68
39	80
34	86
41	86
50	91
39	79
62	96
52	92
37	72
50	96
41	70
55	86
41	87
56	88
39	79
52	90
46	95
44	85
41	90
50	115
50	84
44	79
52	94
54	97
44	86
52	111
37	87
52	98
50	87
36	68
50	88
52	82
55	111
31	75
36	94
49	95
42	80
37	95
41	68
30	94
52	88
30	84
44	101
66	98
48	78
43	109
57	102
46	81
54	97
48	75
48	97
62	101
58	101
58	95
62	95
46	95
34	90
66	107
52	92
55	86
55	70
57	95
56	96
55	91
56	87
54	92
55	97
46	102
52	91
32	68
44	88
46	97
59	90
46	101
46	94
54	101
66	109
56	100
59	103
57	94
52	97
48	85
44	75
41	77
50	87
48	78
48	108
59	97
34	105
46	106
54	107
55	95
54	107
59	115
44	101
54	85
52	90
66	115
44	95
57	97
39	112
60	97
45	77
41	90
50	94
39	103
43	77
48	98
37	90
58	111
46	77
43	88
44	75
34	92
30	78
50	106
39	80
37	87
55	92
41	111
39	86
36	85
43	90
50	101
55	94
43	86
60	86
48	90
30	75
43	86
39	91
52	97
39	91
39	70
56	98
59	96
46	95
57	100
50	95
54	97
50	97
60	92
59	115
41	88
48	87
59	100
60	98
56	102
51	96

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'Sir Maurice George Kendall' @ kendall.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 & 'Sir Maurice George Kendall' @ kendall.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=271410&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]'Sir Maurice George Kendall' @ kendall.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=271410&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271410&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'Sir Maurice George Kendall' @ kendall.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
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Finance & 30 & 41 & 48 & 55 & 66 \tabularnewline
Hapiness
 & 70 & 86 & 92 & 97 & 112 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271410&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]Finance[/C][C]30[/C][C]41[/C][C]48[/C][C]55[/C][C]66[/C][/ROW]
[ROW][C]Hapiness
[/C][C]70[/C][C]86[/C][C]92[/C][C]97[/C][C]112[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271410&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271410&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
Finance3041485566
Hapiness 70869297112






Boxplot Notches
Variablelower boundmedianupper bound
Finance46.214849.79
Hapiness 90.599293.41

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Finance & 46.21 & 48 & 49.79 \tabularnewline
Hapiness
 & 90.59 & 92 & 93.41 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271410&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]Finance[/C][C]46.21[/C][C]48[/C][C]49.79[/C][/ROW]
[ROW][C]Hapiness
[/C][C]90.59[/C][C]92[/C][C]93.41[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271410&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271410&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
Finance46.214849.79
Hapiness 90.599293.41






Boxplot Means
Variabletrimmed meanunbiased SD
Finance48.168.56
Hapiness 91.6910.76

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
Finance & 48.16 & 8.56 \tabularnewline
Hapiness
 & 91.69 & 10.76 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271410&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]Finance[/C][C]48.16[/C][C]8.56[/C][/ROW]
[ROW][C]Hapiness
[/C][C]91.69[/C][C]10.76[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271410&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271410&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
Finance48.168.56
Hapiness 91.6910.76


Figures (Output of Computation)

Input Parameters & R Code

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