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 computationSun, 14 Dec 2014 09:23:57 +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/14/t14185494463tma4iqkjhywqfn.htm/, Retrieved Thu, 16 May 2024 19:14:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267352, Retrieved Thu, 16 May 2024 19:14:47 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [P boxplots alg2] [2014-12-14 09:23:57] [9772ee27deeac3d50cc1fb84835cd7d6] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
26 50
51 68
57 62
37 54
67 71
43 54
52 65
52 73
43 52
84 84
67 42
49 66
70 65
52 78
58 73
68 75
62 72
43 66
56 70
56 61
74 81
65 71
63 69
58 71
57 72
63 68
53 70
57 68
51 61
64 67
53 76
29 70
54 60
51 77
58 72
43 69
51 71
53 62
54 70
56 64
61 58
47 76
39 52
48 59
50 68
35 76
30 65
68 67
49 59
61 69
67 76
47 63
56 75
50 63
43 60
67 73
62 63
57 70
41 75
54 66
45 63
48 63
61 64
56 70
41 75
43 61
53 60
44 62
66 73
58 61
46 66
37 64
51 59
51 64
56 60
66 56
45 66
37 78
59 53
42 67
38 59
66 66
34 68
53 71
49 66
55 73
49 72
59 71
40 59
58 64
60 66
63 78
56 68
54 73
52 62
34 65
69 68
32 65
48 60
67 71
58 65
57 68
42 64
64 74
58 69
66 76
26 68
61 72
52 67
51 63
55 59
50 73
60 66
56 62
63 69
61 66
52 51
16 56
46 67
56 69
52 57
55 56
50 55
59 63
60 67
52 65
44 47
67 76
52 64
55 68
37 64
54 65
72 71
51 63
48 60
60 68
50 72
63 70
33 61
67 61
46 62
54 71
59 71
61 51
33 56
47 70
69 73
52 76
55 59
55 68
41 48
73 52
51 59
52 60
50 59
51 57
60 79
56 60
56 60
29 59
66 62
66 59
73 61
55 71
64 57
40 66
46 63
58 69
43 58
61 59
51 48
50 66
52 73
54 67
66 61
61 68
80 75
51 62
56 69
56 58
56 60
53 74
47 55
25 62
47 63
46 69
50 58
39 58
51 68
58 72
35 62
58 62
60 65
62 69
63 66
53 72
46 62
67 75
59 58
64 66
38 55
50 47
48 72
48 62
47 64
66 64
47 19
63 50
58 68
44 70
51 79
43 69
55 71
38 48
56 66
45 73
50 74
54 66
57 71
60 74
55 78
56 75
49 53
37 60
43 50
59 70
46 69
51 65
58 78
64 78
53 59
48 72
51 70
47 63
59 63
62 71
62 74
51 67
64 66
52 62
67 80
50 73
54 67
58 61
56 73
63 74
31 32
65 69
71 69
50 84
57 64
47 58
54 60
47 59
57 78
43 57
41 60
63 68
63 68
56 73
51 69
50 67
22 60
41 65
59 66
56 74
66 81
53 72
42 55
52 49
54 74
44 53
62 64
53 65
50 57
36 51
76 80
66 67
62 70
59 74
47 75
55 70
58 69
60 65
44 55
57 71
45 65

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'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267352&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267352&T=0

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






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
AMS.I & 29 & 47 & 54 & 60 & 76 \tabularnewline
AMS.E & 47 & 60.5 & 66 & 71 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267352&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]76[/C][/ROW]
[ROW][C]AMS.E[/C][C]47[/C][C]60.5[/C][C]66[/C][C]71[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267352&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
AMS.I52.78756213564865455.2124378643514
AMS.E65.02072326340856666.9792767365915

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
AMS.I & 52.7875621356486 & 54 & 55.2124378643514 \tabularnewline
AMS.E & 65.0207232634085 & 66 & 66.9792767365915 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267352&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]52.7875621356486[/C][C]54[/C][C]55.2124378643514[/C][/ROW]
[ROW][C]AMS.E[/C][C]65.0207232634085[/C][C]66[/C][C]66.9792767365915[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267352&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267352&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
AMS.I52.78756213564865455.2124378643514
AMS.E65.02072326340856666.9792767365915


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