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 computationWed, 10 Dec 2014 12:06:39 +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/10/t1418213212n4hqy7dalateszz.htm/, Retrieved Sun, 19 May 2024 16:08:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264986, Retrieved Sun, 19 May 2024 16:08:35 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2014-12-10 12:06:39] [d3a85ea23f6d8881e8b5a834ebd3a404] [Current]
Feedback Forum

Post a new message

Dataset

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

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=264986&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=264986&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264986&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 & 47 & 60 & 65 & 70 & 84 \tabularnewline
AMS.E & 47 & 61 & 66 & 71 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264986&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]47[/C][C]60[/C][C]65[/C][C]70[/C][C]84[/C][/ROW]
[ROW][C]AMS.E[/C][C]47[/C][C]61[/C][C]66[/C][C]71[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264986&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
EM63.74301949100236566.2569805089977
AMS.E65.05237897263166666.9476210273684

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
EM & 63.7430194910023 & 65 & 66.2569805089977 \tabularnewline
AMS.E & 65.0523789726316 & 66 & 66.9476210273684 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264986&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]63.7430194910023[/C][C]65[/C][C]66.2569805089977[/C][/ROW]
[ROW][C]AMS.E[/C][C]65.0523789726316[/C][C]66[/C][C]66.9476210273684[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264986&T=2

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


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0.95 ; par2 = 0 ;
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')