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 softwareBoxplot and Trimmed Means
Date of computationThu, 23 Feb 2012 07:17:53 -0500
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/Feb/23/t1329999574ahzhgi9tco7xj7s.htm/, Retrieved Sat, 04 May 2024 22:51:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=163275, Retrieved Sat, 04 May 2024 22:51:47 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Boxplot and Trimmed Means] [Care Age 10 Data] [2009-10-26 09:01:50] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   PD  [Boxplot and Trimmed Means] [Care Age 7 Data] [2009-10-26 18:36:29] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   P     [CARE Data - Boxplots and Scatterplot Matrix] [CARE Data] [2010-10-19 14:16:27] [3fdd735c61ad38cbc9b3393dc997cdb7]
- RM        [CARE Data - Boxplots and Scatterplot Matrix] [CARE data - works...] [2011-10-17 10:23:12] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R  D          [Boxplot and Trimmed Means] [graphs] [2012-02-23 12:17:53] [c3a1a4881a39c19cd8024386f5bb4813] [Current]
-    D            [Boxplot and Trimmed Means] [results] [2012-02-23 12:32:43] [a68359a26e24fd92b609f4c95c254176]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
909	678	0	880
753	998	1075	1811
1074	1191	2688	1220
826	794	1362	793
820	847	1932	1346
1027	1199	1495	1202
967	1989	868	865
1054	2586	2748	1703
618	785	957	857
1615	1138	1017	752
750	879	1502	1217
855	839	1698	755
1358	1049	0	1878
866	777	1055	1102
875	633	0	1194
740	587	733	879
972	587	974	1940
1156	956	1214	2980
696	1377	869	2177
1040	725	1063	1792
1130	788	861	842
745	710	726	1279
1356	688	2870	758
951	759	1223	715
710	541	783	2558

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'AstonUniversity' @ aston.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 & 2 seconds \tabularnewline
R Server & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=163275&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=163275&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=163275&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 time2 seconds
R Server'AstonUniversity' @ aston.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
FameInv61875390910541358
FameUp54171079410491377
NFameInv0861105514951932
NFameUp715857120217922980

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
FameInv & 618 & 753 & 909 & 1054 & 1358 \tabularnewline
FameUp & 541 & 710 & 794 & 1049 & 1377 \tabularnewline
NFameInv & 0 & 861 & 1055 & 1495 & 1932 \tabularnewline
NFameUp & 715 & 857 & 1202 & 1792 & 2980 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=163275&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]FameInv[/C][C]618[/C][C]753[/C][C]909[/C][C]1054[/C][C]1358[/C][/ROW]
[ROW][C]FameUp[/C][C]541[/C][C]710[/C][C]794[/C][C]1049[/C][C]1377[/C][/ROW]
[ROW][C]NFameInv[/C][C]0[/C][C]861[/C][C]1055[/C][C]1495[/C][C]1932[/C][/ROW]
[ROW][C]NFameUp[/C][C]715[/C][C]857[/C][C]1202[/C][C]1792[/C][C]2980[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=163275&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=163275&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
FameInv61875390910541358
FameUp54171079410491377
NFameInv0861105514951932
NFameUp715857120217922980






Boxplot Means
Variabletrimmed meanunbiased SD
FameInv954.5236.4
FameUp964459
NFameInv1189759.8
NFameUp1340614.4

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
FameInv & 954.5 & 236.4 \tabularnewline
FameUp & 964 & 459 \tabularnewline
NFameInv & 1189 & 759.8 \tabularnewline
NFameUp & 1340 & 614.4 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=163275&T=2

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]FameInv[/C][C]954.5[/C][C]236.4[/C][/ROW]
[ROW][C]FameUp[/C][C]964[/C][C]459[/C][/ROW]
[ROW][C]NFameInv[/C][C]1189[/C][C]759.8[/C][/ROW]
[ROW][C]NFameUp[/C][C]1340[/C][C]614.4[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=163275&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=163275&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 Means
Variabletrimmed meanunbiased SD
FameInv954.5236.4
FameUp964459
NFameInv1189759.8
NFameUp1340614.4


Figures (Output of Computation)

Input Parameters & R Code

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