Free Statistics

of Irreproducible Research!

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, 17 Dec 2014 13:46:18 +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/17/t1418824011gpzf7l0wt4s31bo.htm/, Retrieved Thu, 16 May 2024 21:13:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270262, Retrieved Thu, 16 May 2024 21:13:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact64
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [notchedbox plot] [2014-12-17 13:46:18] [f8a15a4749f25af1f83725a9fa901b6e] [Current]
Feedback Forum

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




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270262&T=0

As an alternative you can also use a 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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
AMS.E_man4759657180
AMS.E_vrouw5162667184

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
AMS.E_man & 47 & 59 & 65 & 71 & 80 \tabularnewline
AMS.E_vrouw & 51 & 62 & 66 & 71 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=270262&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]AMS.E_man[/C][C]47[/C][C]59[/C][C]65[/C][C]71[/C][C]80[/C][/ROW]
[ROW][C]AMS.E_vrouw[/C][C]51[/C][C]62[/C][C]66[/C][C]71[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=270262&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270262&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
AMS.E_man4759657180
AMS.E_vrouw5162667184







Boxplot Notches
Variablelower boundmedianupper bound
AMS.E_man63.03393958679116566.9660604132089
AMS.E_vrouw64.3356748868716667.664325113129

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
AMS.E_man & 63.0339395867911 & 65 & 66.9660604132089 \tabularnewline
AMS.E_vrouw & 64.335674886871 & 66 & 67.664325113129 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=270262&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]AMS.E_man[/C][C]63.0339395867911[/C][C]65[/C][C]66.9660604132089[/C][/ROW]
[ROW][C]AMS.E_vrouw[/C][C]64.335674886871[/C][C]66[/C][C]67.664325113129[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=270262&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270262&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Boxplot Notches
Variablelower boundmedianupper bound
AMS.E_man63.03393958679116566.9660604132089
AMS.E_vrouw64.3356748868716667.664325113129



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')