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

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact76
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Percentiles] [Intrinsic Motivat...] [2010-10-12 12:10:58] [b98453cac15ba1066b407e146608df68]
- RMPD  [Kernel Density Estimation] [] [2011-10-18 22:42:23] [b98453cac15ba1066b407e146608df68]
- RMPD    [Percentiles] [] [2011-10-18 22:46:45] [b98453cac15ba1066b407e146608df68]
- RMPD      [Notched Boxplots] [] [2011-10-18 22:58:56] [b98453cac15ba1066b407e146608df68]
- RM D          [Notched Boxplots] [] [2014-12-01 17:42:01] [262ee009a9ad408213aaf69cd2b04529] [Current]
Feedback Forum

Post a new message
Dataseries X:
26 50 4
51 68 9
57 62 4
37 54 5
67 71 4
43 54 4
52 65 9
52 73 8
43 52 11
84 84 4
67 42 4
49 66 6
70 65 4
52 78 8
58 73 4
68 75 4
62 72 11
43 66 4
56 70 4
56 61 6
74 81 6
65 71 4
63 69 8
58 71 5
57 72 4
63 68 9
53 70 4
57 68 7
51 61 10
64 67 4
53 76 4
29 70 7
54 60 12
51 77 4
58 72 7
43 69 5
51 71 8
53 62 5
54 70 4
56 64 9
61 58 7
47 76 4
39 52 4
48 59 4
50 68 4
35 76 4
30 65 7
68 67 4
49 59 7
61 69 4
67 76 4
47 63 4
56 75 4
50 63 8
43 60 4
67 73 4
62 63 4
57 70 4
41 75 7
54 66 12
45 63 4
48 63 4
61 64 4
56 70 5
41 75 15
43 61 5
53 60 10
44 62 9
66 73 8
58 61 4
46 66 5
37 64 4
51 59 9
51 64 4
56 60 10
66 56 4
45 66 7
37 78 4
59 53 6
42 67 7
38 59 5
66 66 4
34 68 4
53 71 4
49 66 4
55 73 4
49 72 4
59 71 6
40 59 10
58 64 7
60 66 4
63 78 4
56 68 7
54 73 4
52 62 8
34 65 11
69 68 6
32 65 14
48 60 5
67 71 4
58 65 8
57 68 9
42 64 4
64 74 4
58 69 5
66 76 4
26 68 5
61 72 4
52 67 4
51 63 7
55 59 10
50 73 4
60 66 5
56 62 4
63 69 4
61 66 4
52 51 6
16 56 4
46 67 8
56 69 5
52 57 4
55 56 17
50 55 4
59 63 4
60 67 8
52 65 4
44 47 7
67 76 4
52 64 4
55 68 5
37 64 7
54 65 4
72 71 4
51 63 7
48 60 11
60 68 7
50 72 4
63 70 4
33 61 4
67 61 4
46 62 4
54 71 4
59 71 6
61 51 8
33 56 23
47 70 4
69 73 8
52 76 6
55 59 4
55 68 4
41 48 7
73 52 4
51 59 4
52 60 4
50 59 4
51 57 10
60 79 6
56 60 5
56 60 5
29 59 4
66 62 4
66 59 5
73 61 5
55 71 5
64 57 5
40 66 4
46 63 6
58 69 4
43 58 4
61 59 4
51 48 9
50 66 18
52 73 6
54 67 5
66 61 4
61 68 11
80 75 4
51 62 10
56 69 6
56 58 8
56 60 8
53 74 6
47 55 8
25 62 4
47 63 4
46 69 9
50 58 9
39 58 5
51 68 4
58 72 4
35 62 15
58 62 10
60 65 9
62 69 7
63 66 9
53 72 6
46 62 4
67 75 7
59 58 4
64 66 7
38 55 4
50 47 15
48 72 4
48 62 9
47 64 4
66 64 4
47 19 28
63 50 4
58 68 4
44 70 4
51 79 5
43 69 4
55 71 4
38 48 12
56 66 5
45 73 4
50 74 6
54 66 6
57 71 5
60 74 4
55 78 4
56 75 4
49 53 10
37 60 7
43 50 4
59 70 4
46 69 7
51 65 4
58 78 4
64 78 12
53 59 5
48 72 8
51 70 6
47 63 17
59 63 4
62 71 5
62 74 4
51 67 5
64 66 5
52 62 6
67 80 4
50 73 4
54 67 4
58 61 6
56 73 8
63 74 10
31 32 4
65 69 5
71 69 4
50 84 4
57 64 4
47 58 16
54 60 4
47 59 7
57 78 4
43 57 4
41 60 14
63 68 5
63 68 5
56 73 5
51 69 5
50 67 7
22 60 19
41 65 16
59 66 4
56 74 4
66 81 7
53 72 9
42 55 5
52 49 14
54 74 4
44 53 16
62 64 10
53 65 5
50 57 6
36 51 4
76 80 4
66 67 4
62 70 5
59 74 4
47 75 4
55 70 5
58 69 4
60 65 4
44 55 5
57 71 8
45 65 15
58 69 7
51 48 5
57 69 8
30 68 8
46 74 5
51 67 4
56 65 4
58 63 11
44 74 5
14 39 22
53 68 4
42 69 4
49 68 4
44 63 5
62 67 4
30 70 16
46 68 5
56 66 4
50 70 6
54 78 5
48 59 4
55 62 4
35 75 4
55 74 7
41 73 4
59 62 8
54 69 7
66 65 4
55 67 6
45 73 5
51 52 8
47 61 8
42 53 4
53 63 7
53 78 4
41 65 13
55 77 4
55 69 4
46 68 4
63 76 4
43 63 7
65 41 5
59 76 4
39 67 5
44 69 12
60 59 8
57 73 4
67 72 4
52 52 8
52 65 5
69 63 4
46 78 4
46 56 7
53 68 5
40 56 13
70 64 4
54 68 4
77 75 4
45 67 6
60 55 4
47 73 4
50 66 4
66 75 4
60 77 4
41 65 5
53 75 6
34 57 4
51 61 4
69 71 4
60 72 6
45 62 9
58 66 5
39 66 6
51 63 13
52 60 4
49 64 7
63 74 5
44 59 4
51 71 4
52 69 4
60 63 6
53 73 6
53 55 8
52 77 6
31 70 5
51 64 9
65 78 6
51 60 4
49 66 9
61 77 4
58 68 4
62 78 4
54 68 5
52 60 4
72 65 4
50 64 4
65 69 5
53 72 5
56 50 8
63 72 4
62 71 4
66 80 9
50 74 4
45 64 4
58 69 4
52 76 4
53 75 4
68 79 4
59 73 4
58 60 4
52 76 4
45 55 4
58 53 4
70 62 4
69 69 4
71 78 5
46 68 8
58 67 7
39 75 4
46 59 4
64 73 4
67 70 5
44 59 5
54 64 6
41 63 12
68 67 5
63 58 9
57 71 12
61 79 4
39 53 16
69 76 4
64 66 5
38 64 4
59 57 4
51 67 6
59 72 4
51 58 4
65 74 5
47 57 6
50 62 5
57 74 6
21 54 4
47 62 4
51 66 7
37 64 9
67 74 5
43 71 5
58 66 4
51 66 4
40 63 12
41 65 4
58 70 6
64 66 9
64 66 4
58 78 5
50 77 4
59 72 4
55 65 4
59 67 4
58 72 4
41 58 11
56 84 4
63 67 6
77 84 4
60 58 5
58 63 4
64 75 4
47 55 6
46 72 4
62 58 7
60 69 9
50 54 5
46 58 14
44 67 4
58 77 4
56 80 4
43 67 5
54 75 4
54 71 4
56 72 9
65 75 4
66 79 4
62 76 10
58 72 4
67 81 4
25 52 6
56 76 4
53 60 9
56 72 5
59 77 4
46 64 5
49 67 14
56 72 9
76 79 4
33 40 4
49 71 17
53 73 4
58 75 5
72 70 9
51 66 7
42 66 4
69 73 5
51 74 7
54 58 10
52 51 5
59 75 4
51 70 8
67 50 4
64 64 4
58 77 6
53 71 5




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262122&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262122&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262122&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 time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
AMS.I2947546077
AMS.E4762677284
AMS.A445711

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
AMS.I & 29 & 47 & 54 & 60 & 77 \tabularnewline
AMS.E & 47 & 62 & 67 & 72 & 84 \tabularnewline
AMS.A & 4 & 4 & 5 & 7 & 11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262122&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.I[/C][C]29[/C][C]47[/C][C]54[/C][C]60[/C][C]77[/C][/ROW]
[ROW][C]AMS.E[/C][C]47[/C][C]62[/C][C]67[/C][C]72[/C][C]84[/C][/ROW]
[ROW][C]AMS.A[/C][C]4[/C][C]4[/C][C]5[/C][C]7[/C][C]11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262122&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
AMS.I53.07958059149645454.9204194085036
AMS.E66.29198507038186767.7080149296182
AMS.A4.7875955211145455.21240447888546

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
AMS.I & 53.0795805914964 & 54 & 54.9204194085036 \tabularnewline
AMS.E & 66.2919850703818 & 67 & 67.7080149296182 \tabularnewline
AMS.A & 4.78759552111454 & 5 & 5.21240447888546 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262122&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.I[/C][C]53.0795805914964[/C][C]54[/C][C]54.9204194085036[/C][/ROW]
[ROW][C]AMS.E[/C][C]66.2919850703818[/C][C]67[/C][C]67.7080149296182[/C][/ROW]
[ROW][C]AMS.A[/C][C]4.78759552111454[/C][C]5[/C][C]5.21240447888546[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262122&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262122&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.I53.07958059149645454.9204194085036
AMS.E66.29198507038186767.7080149296182
AMS.A4.7875955211145455.21240447888546



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