FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Boxplot of students who did/didn't take a placement year and their final ye...

Author*The author of this computation has been verified*
R Software Modulerwasp_Reddy-Moores Data Boxplot V2.0.wasp
Title produced by softwareBoxplot and Trimmed Means
Date of computationSat, 15 Oct 2011 12:40:21 -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/2011/Oct/15/t1318696861u44bkees0te2l9z.htm/, Retrieved Wed, 15 May 2024 22:50:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=129866, Retrieved Wed, 15 May 2024 22:50:22 +0000
QR Codes:

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

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] [Reddy-Moores Plac...] [2011-10-10 17:07:34] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R  D    [Boxplot and Trimmed Means] [Boxplot of studen...] [2011-10-15 16:40:21] [5aec880ec90441725e928f99d9cdab9f] [Current]
Feedback Forum

Post a new message

Dataset

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

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net
R Engine error message
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted


\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 & 0 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
R Engine error message & 
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted

 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=129866&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[ROW][C]R Engine error message[/C][C]
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted

[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=129866&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=129866&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 time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net
R Engine error message
Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 3 ; par2 = FALSE ; par3 = 0 ; par4 = 1 ; par5 = 2 ;
Parameters (R input):
par1 = 3 ; par2 = FALSE ; par3 = 0 ; par4 = 1 ; par5 = 2 ;
R code (references can be found in the software module):
par1 <- as.numeric(par1) # colour
par2<- as.logical(par2) # notches
par3<-as.numeric(par3) # percentage 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.')}
par4 <- as.numeric(par4) #factor column
par5 <- as.numeric(par5) # response column
x <- t(x)
x1<-as.numeric(x[,par5]) # response
f1<-as.character(x[,par4]) # factor
x2<-x1[f1=='no']
f2 <- f1[f1=='no']
lotrm<-as.integer(length(x2)*par3/100)
hitrm<-as.integer(length(x2)*(100-par3)/100)
srt<-order(x2,f2)
trmx1<-x2[srt[lotrm:hitrm]]
trmf1<-f2[srt[lotrm:hitrm]]
x3<-x1[f1=='yes']
f3 <- f1[f1=='yes']
lotrm<-as.integer(length(x3)*par3/100)
hitrm<-as.integer(length(x3)*(100-par3)/100)
srt<-order(x3,f3)
trmx2<-x3[srt[lotrm:hitrm]]
trmf2<-f3[srt[lotrm:hitrm]]
xtrm<-c(trmx1,trmx2)
ftrm<-c(trmf1,trmf2)
xtrm[1:6]
ftrm[1:6]
bitmap(file='test1.png')
r<-boxplot(xtrm~as.factor(ftrm), col=par1, notch=par2, 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,'no',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,'yes',1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,2])
}
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
tr.mns<-tapply(x1,f1,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'),2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'No Placement')
a<-table.element(a,'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')