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 19:44:55 +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/t14182407115qn8uuhnpt7tt60.htm/, Retrieved Fri, 17 May 2024 08:10:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265602, Retrieved Fri, 17 May 2024 08:10:40 +0000
QR Codes:

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

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 academiejaar] [2014-12-10 19:44:55] [abae100319030711995379e8f3c2e274] [Current]
Feedback Forum

Post a new message

Dataset

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

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'George Udny Yule' @ yule.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 & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265602&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]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265602&T=0

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






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
2012 & 29 & 47 & 53 & 60 & 76 \tabularnewline
2011 & 26 & 47 & 54 & 61 & 74 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265602&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]2012[/C][C]29[/C][C]47[/C][C]53[/C][C]60[/C][C]76[/C][/ROW]
[ROW][C]2011[/C][C]26[/C][C]47[/C][C]54[/C][C]61[/C][C]74[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265602&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
201251.40578682019925354.5942131798008
201152.28315503713765455.7168449628624

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
2012 & 51.4057868201992 & 53 & 54.5942131798008 \tabularnewline
2011 & 52.2831550371376 & 54 & 55.7168449628624 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265602&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]2012[/C][C]51.4057868201992[/C][C]53[/C][C]54.5942131798008[/C][/ROW]
[ROW][C]2011[/C][C]52.2831550371376[/C][C]54[/C][C]55.7168449628624[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265602&T=2

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


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