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 computationFri, 09 Dec 2011 11:17:25 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/09/t1323447495si1ungwp8b1jsg5.htm/, Retrieved Thu, 02 May 2024 17:20:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=153411, Retrieved Thu, 02 May 2024 17:20:19 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Survey Scores] [E-Learn 2008 table 1] [2008-09-07 11:33:54] [b98453cac15ba1066b407e146608df68]
F RM D  [Survey Scores] [ATTLES] [2010-04-05 12:47:13] [b98453cac15ba1066b407e146608df68]
F RMPD    [Notched Boxplots] [Compare ATTLES Sc...] [2010-10-03 17:09:07] [b98453cac15ba1066b407e146608df68]
- R PD        [Notched Boxplots] [Gemaakte revieuws] [2011-12-09 16:17:25] [7357ea4f05edbe0d796a101c4acf63d9] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
34	30	24
33	28	25
29	31	12
34	35	35
32	35	35
35	37	37
41	39	27
27	31	40
40	38	40
40	37	37
36	37	42
40	35	28
43	37	37
40	42	36
33	28	37
37	37	33
32	36	40
26	37	30
36	33	36
39	40	33
38	30	40
34	36	37
35	33	26
41	40	36
42	37	39
36	37	38
39	39	34
33	35	35
33	36	41
36	34	42
37	36	36
36	32	39
34	33	33
32	27	33
35	37	36
39	32	37
30	31	32
25	31	37
29	32	25
39	37	30
31	25	37
26	30	37
28	37	40
40	37	35
32	40	35
35	35	43
32	35	32
41	43	42
34	32	35
36	42	27
38	35	30
34	27	31
32	30	36
34	31	36
32	36	41
40	36	45
43	41	36
35	34	39
45	36	31
36	33	36
39	35	36
31	28	37
36	33	40
36	38	35
37	37	36
40	39	32
35	34	36
36	32	37
32	36	42
36	36	37
37	35	36
42	33	36
37	42	33
36	36	37
36	33	35
33	36	37
37	32	28
35	35	33
37	38	45
28	33	38
33	32	43
45	38	37
38	39	33
43	39	36
37	39	32
36	30	35
40	38	38
39	38	33
43	42	32
32	41	38
37	31	39
34	39	39
44	40	39
35	31	30
34	34	38
37	23	38
40	28	42
36	36	41
44	41	31
35	29	39
34	31	40
40	33	31
34	35	34
39	35	23
36	34	28
40	40	36
37	34	41
35	36	29
45	35	31
39	39	33
39	33	35
37	37	35
38	40	34
46	32	40
37	37	34
27	27	36
33	35	35
42	37	39
33	32	33
33	31	37
33	31	40
38	38	32
37	34	37
35	30	27
33	34	35
39	37	37
38	38	32
39	33	31
38	35	31
30	27	38
43	34	34
34	35	30
39	39	34
36	35	37
32	34	38
37	36	33
42	36	35
40	32	27
35	39	34
39	40	35
34	35	39
28	31	35
30	35	34
36	38	36
31	37	36
34	31	32
33	32	39
37	35	40
40	39	35
39	31	31
42	39	35
47	48	38
38	33	37
38	36	31
40	40	32
37	37	35
29	34	39
37	42	31
37	39	39
33	28	48
31	26	33
36	30	36
37	30	40
39	39	37
35	37	34
33	40	42
37	38	39
42	35	28
31	33	26
32	34	30
36	33	30
32	41	39
40	36	37
32	27	40
30	33	38
37	38	42
42	31	37
37	31	47
47	46	37
37	33	31
31	34	41
41	47	44
44	36	40
40	38	37
37	32	33
33	33	35
35	34	40
40	34	38
38	37	36
36	37	36
36	41	35
35	27	30
30	31	37
37	38	43
43	30	33
33	36	39
39	30	38
38	34	40
40	32	29
29	29	35
35	29	37
37	39	26
26	32	28
28	30	38
38	39	29
29	30	35
35	40	38
38	41	41
39	38	38
44	37	37
33	33	33
35	34	34
42	36	36
30	39	39
36	41	41
40	42	42
39	38	38
36	40	40
37	32	32
37	40	40
37	37	37
36	36	36
30	28	28
32	36	36
35	35	35
42	32	32
41	38	38
35	32	32
33	39	39
39	39	39
34	31	31
39	33	33
41	46	46
34	38	33
30	24	40
29	28	32
33	35	37
40	39	37
32	37	36
37	38	41
37	38	34
36	32	38
41	36	40
34	28	42
38	38	32
40	28	40
42	37	38
32	28	35
40	40	34
38	34	38
35	33	24
34	32	39
38	30	42
24	33	44
39	37	35
42	39	37
44	42	34
35	36	41
37	35	33
34	32	35
41	35	33
33	33	36
42	36	31
30	31	32
30	32	38
40	38	46
49	46	39
39	39	31
29	31	39
39	39	36
35	36	37
35	37	33
34	33	22
24	22	42
47	42	28
24	28	28
30	28	31
34	31	36
41	36	37
32	37	35
32	35	31
35	31	37
37	37	38
40	38	46
45	46	40
35	40	43
39	43	40
46	49	35
33	39	38
40	37	36
35	36	34
38	31	30
36	32	44
34	38	37
30	37	36
44	36	37
37	21	34
36	32	43
37	36	31
34	35	34
43	39	38
31	28	38
34	42	34
38	36	26
38	41	36
34	30	35
26	18	37
36	37	40
35	28	43
37	39	29
40	40	34
43	44	37
29	26	37
30	34	32
36	37	29
38	37	31
43	32	32
41	29	44
31	31	39
36	32	39
44	44	35
35	39	36
42	39	34
31	35	40
38	36	41
34	33	30
40	35	43
41	35	35
30	30	30
43	38	38

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

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






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
2008-20092433363947
2009-20102332353847
2010-20112433363948

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
2008-2009 & 24 & 33 & 36 & 39 & 47 \tabularnewline
2009-2010 & 23 & 32 & 35 & 38 & 47 \tabularnewline
2010-2011 & 24 & 33 & 36 & 39 & 48 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153411&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]2008-2009[/C][C]24[/C][C]33[/C][C]36[/C][C]39[/C][C]47[/C][/ROW]
[ROW][C]2009-2010[/C][C]23[/C][C]32[/C][C]35[/C][C]38[/C][C]47[/C][/ROW]
[ROW][C]2010-2011[/C][C]24[/C][C]33[/C][C]36[/C][C]39[/C][C]48[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=153411&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153411&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
2008-20092433363947
2009-20102332353847
2010-20112433363948






Boxplot Notches
Variablelower boundmedianupper bound
2008-200935.47814317533013636.5218568246699
2009-201034.47814317533013535.5218568246699
2010-201135.47814317533013636.5218568246699

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
2008-2009 & 35.4781431753301 & 36 & 36.5218568246699 \tabularnewline
2009-2010 & 34.4781431753301 & 35 & 35.5218568246699 \tabularnewline
2010-2011 & 35.4781431753301 & 36 & 36.5218568246699 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153411&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]2008-2009[/C][C]35.4781431753301[/C][C]36[/C][C]36.5218568246699[/C][/ROW]
[ROW][C]2009-2010[/C][C]34.4781431753301[/C][C]35[/C][C]35.5218568246699[/C][/ROW]
[ROW][C]2010-2011[/C][C]35.4781431753301[/C][C]36[/C][C]36.5218568246699[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=153411&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153411&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
2008-200935.47814317533013636.5218568246699
2009-201034.47814317533013535.5218568246699
2010-201135.47814317533013636.5218568246699


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = blue ;
Parameters (R input):
par1 = blue ;
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')