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_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationThu, 18 Dec 2014 15:41:15 +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/18/t1418917288mao0iygym6epuil.htm/, Retrieved Fri, 17 May 2024 15:40:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271091, Retrieved Fri, 17 May 2024 15:40:03 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [boxplot 2] [2014-12-18 15:41:15] [5a1a6480a94cc63423bd5720e139a09a] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
68 50
54 62
71 65
54 78
73 73
52 75
84 66
42 61
66 69
65 68
72 67
70 76
81 70
71 71
71 64
72 76
68 59
70 63
61 75
60 63
77 64
72 75
69 60
62 61
70 66
58 64
76 59
52 60
59 56
68 78
65 53
67 59
69 66
76 68
63 66
75 71
63 59
60 64
73 73
70 65
66 68
63 76
70 68
61 72
62 67
73 63
64 59
66 51
67 69
71 56
73 55
72 65
66 61
78 56
68 70
62 76
68 59
65 48
60 60
71 60
65 60
64 59
74 62
69 61
73 57
66 63
62 58
69 59
66 66
56 62
67 58
57 60
63 74
67 62
65 69
47 58
76 58
64 68
68 69
64 66
71 62
63 75
60 58
68 66
72 72
70 62
61 64
62 71
71 48
71 66
51 66
73 74
68 78
52 75
59 50
59 70
57 69
79 78
59 59
71 72
66 74
69 80
48 73
73 61
67 32
61 69
68 58
75 59
69 57
55 68
63 68
72 67
62 66
62 81
65 72
72 74
55 64
47 65
64 51
19 80

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' @ jenkins.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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271091&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' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271091&T=0

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






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
EM & 51 & 62 & 66.5 & 71 & 84 \tabularnewline
EF & 48 & 59.5 & 65 & 70.5 & 81 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271091&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]EM[/C][C]51[/C][C]62[/C][C]66.5[/C][C]71[/C][C]84[/C][/ROW]
[ROW][C]EF[/C][C]48[/C][C]59.5[/C][C]65[/C][C]70.5[/C][C]81[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271091&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
EM65.201897538712866.567.7981024612872
EF63.41343032509346566.5865696749066

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
EM & 65.2018975387128 & 66.5 & 67.7981024612872 \tabularnewline
EF & 63.4134303250934 & 65 & 66.5865696749066 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271091&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]EM[/C][C]65.2018975387128[/C][C]66.5[/C][C]67.7981024612872[/C][/ROW]
[ROW][C]EF[/C][C]63.4134303250934[/C][C]65[/C][C]66.5865696749066[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271091&T=2

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


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = grey ;
R code (references can be found in the software module):
z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,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,r$stats[j,i])
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
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,r$conf[1,i])
a<-table.element(a,r$stats[3,i])
a<-table.element(a,r$conf[2,i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')