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

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact69
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2012-11-26 11:02:12] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
Feedback Forum

Post a new message
Dataseries X:
122	111
114	69
140	116
143	103
122	139
127	135
113	113
118	99
161	76
134	110
96	121
104	95
135	66
110	111
128	77
142	101
117	108
94	135
135	70
121	124
103	92
118	104
127	113
116	95
129	89
115	83
135	96
133	95
113	110
111	106
92	78
118	115
134	74
106	93
137	88
100	104
102	86
134	104
130	99
144	101
120	53
91	96
100	58
134	117
161	82
128	57
124	71
115	105
123	60
117	77
111	73
146	78
101	81
131	101
122	118
78	59
120	101
115	22
142	77
94	100
114	39
108	42
119	80
117	48
86	131
138	46
119	89
117	51
117	108
76	86
119	105
119	85
124	103
116	83
118	77
102	26
116	73
103	42
117	71
108	105
122	73
90	98
133	108
116	57
110	37
90	70
74	73
75	47
107	73
90	91
96	110
115	78
91	92
77	52
108	88
83	100
77	33
99	42
115	81
99	67
106	8
77	46
115	83
67	87
8	82
69	63
88	27
107	14
120	83
3	168
1	67
0	21
0	55
0	54
NA	118
NA	69
NA	77
NA	72
NA	53
NA	40
NA	102
NA	25
NA	31
NA	77
NA	38
NA	23
NA	91
NA	58
NA	42
NA	44
NA	58
NA	35
NA	88
NA	25
NA	39
NA	0
NA	48
NA	64
NA	65
NA	95
NA	29
NA	2
NA	83
NA	11
NA	16
NA	9
NA	46
NA	41
NA	14
NA	63
NA	9
NA	0
NA	58
NA	18
NA	42
NA	0
NA	26
NA	38
NA	0
NA	0
NA	1
NA	0
NA	13
NA	0
NA	0
NA	0
NA	0
NA	0




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

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







\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
lfm_UK & 67 & 99 & 115 & 123 & 146 \tabularnewline
lfm_B & 0 & 42 & 73 & 96 & 168 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=193023&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]lfm_UK[/C][C]67[/C][C]99[/C][C]115[/C][C]123[/C][C]146[/C][/ROW]
[ROW][C]lfm_B[/C][C]0[/C][C]42[/C][C]73[/C][C]96[/C][C]168[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=193023&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
lfm_UK111.448466602482115118.551533397518
lfm_B66.41741909061727379.5825809093828

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
lfm_UK & 111.448466602482 & 115 & 118.551533397518 \tabularnewline
lfm_B & 66.4174190906172 & 73 & 79.5825809093828 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=193023&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]lfm_UK[/C][C]111.448466602482[/C][C]115[/C][C]118.551533397518[/C][/ROW]
[ROW][C]lfm_B[/C][C]66.4174190906172[/C][C]73[/C][C]79.5825809093828[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=193023&T=2

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



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