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 computationTue, 10 Nov 2009 06:23:05 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/10/t1257859467iinxjhezuel6tbv.htm/, Retrieved Sun, 05 May 2024 21:04:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55223, Retrieved Sun, 05 May 2024 21:04:07 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact130
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
-   PD    [Notched Boxplots] [ws2] [2009-11-10 13:23:05] [94ba0ef70f5b330d175ff4daa1c9cd40] [Current]
Feedback Forum

Post a new message
Dataseries X:
100.00	100.00	100.00	100.00
108.16	211.30	99.95	99.97
114.02	333.91	102.07	101.03
102.19	187.83	102.02	101.00
110.37	254.78	102.63	101.30
96.86	121.74	102.88	101.43
94.19	113.91	103.01	101.49
99.52	140.87	104.33	102.14
94.06	142.61	105.21	102.58
97.55	173.91	104.73	102.34
78.15	121.74	104.17	102.07
81.24	113.91	103.69	101.83
92.36	115.65	104.33	102.14
96.06	155.65	105.21	102.58
114.05	256.52	105.31	102.63
110.66	217.39	105.54	102.74
104.92	230.43	106.70	103.32
90.00	171.30	106.60	103.27
95.70	155.65	105.01	102.48
86.03	133.04	104.33	102.14
84.85	140.87	104.17	102.07
100.04	169.57	103.42	101.69
80.92	183.48	102.33	101.15
74.07	173.91	101.82	100.90
77.30	176.52	103.57	101.77
97.23	176.52	103.90	101.93
90.76	306.96	104.58	102.27
100.56	247.83	105.03	102.49
92.01	171.30	105.67	102.80
99.24	140.87	105.69	102.82
105.87	171.30	105.72	102.83
90.99	153.04	105.84	102.89
93.31	184.35	105.79	102.87
91.17	236.52	105.39	102.67
77.33	177.39	105.97	102.96
91.13	164.35	106.50	103.22
85.01	208.70	107.13	103.53
83.90	211.30	109.36	104.63
104.86	403.48	109.36	104.63
110.90	328.70	108.42	104.17
95.44	261.74	107.94	103.93
111.62	254.78	108.10	104.01
108.89	277.39	108.40	104.16
96.18	282.61	110.55	105.22
101.97	357.39	111.81	105.85
99.12	284.35	112.55	106.21
86.78	183.48	111.66	105.77
118.42	186.09	111.38	105.63
118.74	179.13	113.10	106.49
106.53	175.65	115.18	107.51
134.78	317.39	121.07	110.43
104.68	375.65	123.07	111.42
105.30	277.39	123.40	111.58
139.41	313.91	122.92	111.34
103.61	203.48	122.39	111.08
99.78	199.13	123.55	111.66
103.46	240.87	124.97	112.36
120.06	238.26	124.87	112.31
96.71	258.26	123.27	111.52
107.13	335.65	121.96	110.87
105.36	302.61	122.49	111.13
111.69	373.91	125.68	112.71
132.05	570.43	126.76	113.25
126.80	382.61	126.44	113.09
154.48	307.83	125.35	112.55
141.56	435.65	126.01	112.87
109.95	306.09	127.45	113.59
127.90	250.43	130.58	115.14
133.09	350.43	133.09	116.38
120.08	426.09	133.34	116.50
117.56	477.39	132.84	116.25
143.04	437.39	133.80	116.73
159.98	334.78	136.63	118.13
128.60	305.22	138.88	119.25
149.74	571.30	140.65	120.12
126.82	523.48	143.92	121.74
140.96	426.96	149.03	124.27
137.67	360.87	149.33	124.42
117.94	267.83	152.62	126.05
122.31	254.78	161.60	130.49
127.78	357.39	162.66	131.02
136.17	348.70	166.13	132.73
116.24	259.13	165.98	132.66
123.16	290.43	165.47	132.41
116.34	329.57	166.94	133.13
108.61	304.35	167.49	133.41
125.90	566.96	169.29	134.30
112.80	409.57	170.28	134.79
107.52	345.22	171.59	135.44
135.10	445.22	171.36	135.32
115.51	315.65	171.64	135.46
115.86	270.43	170.10	134.70
104.59	306.09	168.30	133.81
163.72	326.96	168.96	134.13
113.45	313.04	170.02	134.66
98.04	300.00	167.59	133.46
116.79	360.00	172.60	135.94
126.53	334.78	175.08	137.17
113.03	384.35	177.76	138.49
124.34	531.30	182.49	140.83
109.83	325.22	185.48	142.31
124.44	399.13	189.15	144.13
111.50	365.22	186.59	142.86
102.04	216.52	184.49	141.82
116.87	333.91	178.62	138.92
112.21	348.70	170.58	134.94
101.15	180.87	166.71	133.02
124.43	292.17	163.34	131.35




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time7 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 7 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55223&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]7 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55223&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55223&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 time7 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
BV74.0797.045108.385120.07154.48
HK100182.175273.91340.435571.3
BN99.95105.605122.705163189.15
VI99.97102.77111.235131.185144.13

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
BV & 74.07 & 97.045 & 108.385 & 120.07 & 154.48 \tabularnewline
HK & 100 & 182.175 & 273.91 & 340.435 & 571.3 \tabularnewline
BN & 99.95 & 105.605 & 122.705 & 163 & 189.15 \tabularnewline
VI & 99.97 & 102.77 & 111.235 & 131.185 & 144.13 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55223&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]BV[/C][C]74.07[/C][C]97.045[/C][C]108.385[/C][C]120.07[/C][C]154.48[/C][/ROW]
[ROW][C]HK[/C][C]100[/C][C]182.175[/C][C]273.91[/C][C]340.435[/C][C]571.3[/C][/ROW]
[ROW][C]BN[/C][C]99.95[/C][C]105.605[/C][C]122.705[/C][C]163[/C][C]189.15[/C][/ROW]
[ROW][C]VI[/C][C]99.97[/C][C]102.77[/C][C]111.235[/C][C]131.185[/C][C]144.13[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55223&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55223&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
BV74.0797.045108.385120.07154.48
HK100182.175273.91340.435571.3
BN99.95105.605122.705163189.15
VI99.97102.77111.235131.185144.13







Boxplot Notches
Variablelower boundmedianupper bound
BV104.884380980336108.385111.885619019664
HK249.848850551486273.91297.971149448514
BN113.978918408964122.705131.431081591037
VI106.914909253257111.235115.555090746743

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
BV & 104.884380980336 & 108.385 & 111.885619019664 \tabularnewline
HK & 249.848850551486 & 273.91 & 297.971149448514 \tabularnewline
BN & 113.978918408964 & 122.705 & 131.431081591037 \tabularnewline
VI & 106.914909253257 & 111.235 & 115.555090746743 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55223&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]BV[/C][C]104.884380980336[/C][C]108.385[/C][C]111.885619019664[/C][/ROW]
[ROW][C]HK[/C][C]249.848850551486[/C][C]273.91[/C][C]297.971149448514[/C][/ROW]
[ROW][C]BN[/C][C]113.978918408964[/C][C]122.705[/C][C]131.431081591037[/C][/ROW]
[ROW][C]VI[/C][C]106.914909253257[/C][C]111.235[/C][C]115.555090746743[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55223&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55223&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
BV104.884380980336108.385111.885619019664
HK249.848850551486273.91297.971149448514
BN113.978918408964122.705131.431081591037
VI106.914909253257111.235115.555090746743



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