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 ModuleIan.Hollidayrwasp_Reddy-Moores Data Boxplot.wasp
Title produced by softwareBoxplot and Trimmed Means
Date of computationMon, 19 Oct 2009 16:12:05 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/20/t1255990521gwopmfzho3oj2bs.htm/, Retrieved Thu, 02 May 2024 17:18:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=48291, Retrieved Thu, 02 May 2024 17:18:51 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram and QQPlot] [] [2009-10-12 20:31:19] [c7a0efa05b625e9364575495aeacbca3]
- RMPD  [Boxplot and Trimmed Means] [Reddy Moores BoxPlot] [2009-10-12 20:55:12] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   P     [Boxplot and Trimmed Means] [Reddy Moores BoxPlot] [2009-10-14 08:10:58] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   PD        [Boxplot and Trimmed Means] [compendium] [2009-10-19 22:12:05] [16a9a3e8e97c0b41a2ab24d8f66c5c2a] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
3
4.33
6.33
17.6
36.33
37.93
41.87
43.67
44
47
47
47
47.2
48.33
49
49.33
49.67
51
51
51
51
51.53
52.33
52.67
52.67
53.33
53.67
53.67
53.87
54
54
54.2
54.33
54.33
54.67
54.67
54.67
54.73
55
55
55
55.07
55.33
55.33
55.33
55.47
55.67
55.67
55.93
56
56
56
56.2
56.33
56.33
56.33
56.67
56.67
56.67
56.67
56.67
57
57.13
57.33
57.33
57.47
57.47
57.67
57.67
57.67
57.67
57.8
57.87
58
58
58
58
58
58
58
58
58.07
58.2
58.27
58.27
58.33
58.33
58.33
58.4
58.67
58.67
58.67
58.67
58.67
58.67
58.67
58.8
58.8
58.93
59
59
59
59.13
59.13
59.33
59.33
59.33
59.33
59.33
59.4
59.47
59.53
59.53
59.53
59.6
59.67
59.67
59.67
59.67
59.67
59.67
59.67
59.67
59.73
59.73
59.73
59.8
59.8
59.87
60
60
60
60
60
60
60
60
60
60.13
60.13
60.13
60.33
60.33
60.33
60.33
60.33
60.33
60.33
60.4
60.47
60.67
60.67
60.67
60.67
60.67
60.73
60.8
60.87
61
61
61
61
61
61
61
61
61.27
61.27
61.33
61.33
61.33
61.33
61.33
61.33
61.33
61.33
61.4
61.4
61.47
61.47
61.6
61.6
61.6
61.67
61.67
61.67
61.67
61.67
61.67
61.67
61.67
61.67
61.8
61.87
61.93
61.93
61.93
62
62
62
62
62
62
62
62.13
62.2
62.33
62.33
62.33
62.33
62.4
62.4
62.4
62.4
62.4
62.53
62.6
62.6
62.6
62.6
62.67
62.67
62.67
62.8
62.8
62.8
62.87
62.87
62.93
62.93
63
63
63
63
63
63.07
63.13
63.2
63.27
63.33
63.33
63.33
63.33
63.33
63.33
63.33
63.47
63.53
63.53
63.53
63.6
63.67
63.67
63.67
63.67
63.67
63.67
63.67
63.67
63.67
63.67
63.67
63.67
63.73
63.73
63.73
63.87
64
64
64
64
64
64
64
64
64
64.07
64.07
64.07
64.13
64.2
64.2
64.27
64.27
64.33
64.33
64.4
64.47
64.6
64.6
64.67
64.67
64.67
64.67
64.67
64.67
64.67
64.67
64.67
64.67
64.67
64.67
64.73
64.8
64.87
65
65
65
65
65
65.07
65.07
65.2
65.33
65.33
65.47
65.47
65.6
65.67
65.67
65.67
65.67
65.67
65.67
65.67
65.8
65.8
65.8
65.93
66
66
66
66
66
66
66
66
66
66
66
66.07
66.2
66.2
66.27
66.27
66.33
66.33
66.47
66.53
66.53
66.53
66.6
66.67
66.67
66.67
66.67
66.73
66.73
66.73
66.73
66.8
66.87
66.93
67.07
67.13
67.33
67.33
67.47
67.47
67.53
67.6
67.6
67.67
67.8
68
68.07
68.6
68.67
68.67
68.67
68.73
68.8
68.8
68.87
69
69.53
69.6
69.6
69.87
69.93
70
70.07
70.07
70.33
70.47
70.67
70.67
70.73
70.73
70.73
70.73
70.8
70.8
71.07
71.33
71.47
71.53
71.67
71.67
72.07
72.73
72.73
72.87
73
Dataseries Y:
Download CSV
Histogram 
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2

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' @ 72.249.127.135

\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' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=48291&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' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=48291&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=48291&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' @ 72.249.127.135






Boxplot statistics
Placementlower whiskerlower hingemedianupper hingeupper whisker
yes57.6761.53562.464.53565.67
no58.0760.3361.3363.6766

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Placement & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
yes & 57.67 & 61.535 & 62.4 & 64.535 & 65.67 \tabularnewline
no & 58.07 & 60.33 & 61.33 & 63.67 & 66 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=48291&T=1

[TABLE]
[ROW][C]Boxplot statistics[/C][/ROW]
[ROW][C]Placement[/C][C]lower whisker[/C][C]lower hinge[/C][C]median[/C][C]upper hinge[/C][C]upper whisker[/C][/ROW]
[ROW][C]yes[/C][C]57.67[/C][C]61.535[/C][C]62.4[/C][C]64.535[/C][C]65.67[/C][/ROW]
[ROW][C]no[/C][C]58.07[/C][C]60.33[/C][C]61.33[/C][C]63.67[/C][C]66[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=48291&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=48291&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
Placementlower whiskerlower hingemedianupper hingeupper whisker
yes57.6761.53562.464.53565.67
no58.0760.3361.3363.6766






Trimmed Mean Equation
PlacementNo Placement
62.513703703703761.8277391304348

\begin{tabular}{lllllllll}
\hline
Trimmed Mean Equation \tabularnewline
Placement & No Placement \tabularnewline
62.5137037037037 & 61.8277391304348 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=48291&T=2

[TABLE]
[ROW][C]Trimmed Mean Equation[/C][/ROW]
[ROW][C]Placement[/C][C]No Placement[/C][/ROW]
[ROW][C]62.5137037037037[/C][C]61.8277391304348[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=48291&T=2

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

Trimmed Mean Equation
PlacementNo Placement
62.513703703703761.8277391304348


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 10 ;
Parameters (R input):
par1 = 3 ; par2 = TRUE ; par3 = 20 ;
R code (references can be found in the software module):
bitmap(file='test1.png')
par1 <- as.numeric(par1)
par2<- as.logical(par2)
par3<-as.numeric(par3)
if(par3>45){par3<-45;warning('trim limited to 45%')}
if(par3<0){par3<-0;warning('negative trim makes no sense. Trim is zero.')}
x1<-x[y==1]
y1<-y[y==1]
lotrm<-as.integer(length(x1)*par3/100)
hitrm<-as.integer(length(x1)*(100-par3)/100)
srt<-order(x1,y1)
trmx1<-x1[srt[lotrm:hitrm]]
trmy1<-y1[srt[lotrm:hitrm]]
x2<-x[y==2]
y2<-y[y==2]
lotrm<-as.integer(length(x2)*par3/100)
hitrm<-as.integer(length(x2)*(100-par3)/100)
srt<-order(x2,y2)
trmx2<-x2[srt[lotrm:hitrm]]
trmy2<-y2[srt[lotrm:hitrm]]
xtrm<-c(trmx1,trmx2)
ytrm<-c(trmy1,trmy2)
r<-boxplot(xtrm~as.factor(ytrm), col=par1, notch=par2, names =c('yes', 'no'), main='Reddy and Moores Placements Data', xlab='Placement Student', ylab='Degree Grade')
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,'Placement',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)
a<-table.row.start(a)
a<-table.element(a,'yes',1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,1])
}
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'no',1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,2])
}
a<-table.row.end(a)
atable.save(a,file='mytable.tab')
tr.mns<-tapply(x,y,mean, trim=par3/100)
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('trimmed_mean.htm','Trimmed Mean Equation','Trimmed Mean'),6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Placement')
a<-table.element(a,'No Placement')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,tr.mns[1])
a<-table.element(a,tr.mns[2])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')