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 computationMon, 26 Nov 2012 06:03:17 -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/2012/Nov/26/t13539278167xhdnyko94c1uto.htm/, Retrieved Tue, 30 Apr 2024 02:26:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=193030, Retrieved Tue, 30 Apr 2024 02:26:13 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2012-11-26 11:03:17] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
104	330
62	119
74	66
64	102
72	60
27	128
47	69
78	94
65	91
61	65
100	78
44	85
85	67
41	152
45	62
81	67
34	74
40	86
41	51
38	57
33	97
48	64
23	90
57	59
31	61
73	61
50	36
31	82
33	79
53	109
40	27
20	76
50	41
32	66
27	78
35	136
30	39
38	94
24	39
34	61
48	53
28	65
32	34
41	64
125	47
34	46
64	75
35	53
49	128
40	65
49	47
46	54
52	107
42	48
63	55
53	32
25	52
41	39
17	25
31	51
31	38
30	59
20	41
39	39
45	64
39	57
45	43
19	27
27	72
22	57
32	103
52	62
35	59
19	39
27	56
59	49
24	39
33	57
36	37
27	185
48	27
21	86
41	60
53	56
26	62
19	46
27	61
28	47
28	26
48	67
22	103
29	62
19	38
38	66
31	41
27	69
10	38
21	44
17	31
20	94
20	16
8	22
49	73
15	27
6	50
10	59
12	61
10	72
23	109
7	31
2	66
0	56
4	37
0	35
NA	36
NA	41
NA	36
NA	45
NA	38
NA	52
NA	40
NA	50
NA	34
NA	55
NA	45
NA	46
NA	49
NA	50
NA	36
NA	22
NA	36
NA	15
NA	21
NA	47
NA	38
NA	0
NA	48
NA	30
NA	52
NA	109
NA	40
NA	63
NA	84
NA	42
NA	37
NA	11
NA	37
NA	26
NA	18
NA	51
NA	7
NA	8
NA	46
NA	31
NA	62
NA	0
NA	22
NA	29
NA	0
NA	2
NA	9
NA	0
NA	0
NA	0
NA	0
NA	0
NA	0
NA	0

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=193030&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
kcs_UK & 0 & 24 & 34 & 48 & 81 \tabularnewline
kcs_B & 0 & 36 & 50.5 & 66 & 109 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=193030&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]kcs_UK[/C][C]0[/C][C]24[/C][C]34[/C][C]48[/C][C]81[/C][/ROW]
[ROW][C]kcs_B[/C][C]0[/C][C]36[/C][C]50.5[/C][C]66[/C][C]109[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=193030&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
kcs_UK30.44846660248223437.5515333975178
kcs_B46.843010605898450.554.1569893941016

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
kcs_UK & 30.4484666024822 & 34 & 37.5515333975178 \tabularnewline
kcs_B & 46.8430106058984 & 50.5 & 54.1569893941016 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=193030&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]kcs_UK[/C][C]30.4484666024822[/C][C]34[/C][C]37.5515333975178[/C][/ROW]
[ROW][C]kcs_B[/C][C]46.8430106058984[/C][C]50.5[/C][C]54.1569893941016[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=193030&T=2

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


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