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 computationFri, 13 Nov 2009 08:19:25 -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/13/t1258125751arx70oz2yxyfuic.htm/, Retrieved Sun, 05 May 2024 17:59:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56805, Retrieved Sun, 05 May 2024 17:59:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact145
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]
-    D    [Notched Boxplots] [] [2009-11-13 15:19:25] [ed082d38031561faed979d8cebfeba4d] [Current]
Feedback Forum

Post a new message
Dataseries X:
10144	112	285	1915
10751	304	574	1843
11752	794	865	1761
13808	901	1147	2858
16203	1232	1516	3968
17432	1240	1789	5061
18014	1032	2087	4661
16956	1145	2372	4269
17982	1588	2669	3857
19435	2264	2966	3568
19990	2209	3270	3274
20154	2917	3652	2987
10327	243	329	1683
9807	558	658	1381
10862	1238	988	1071
13743	1502	1303	2772
16458	2000	1603	4485
18466	2146	1929	6181
18810	2066	2235	5479
17361	2046	2544	4782
17411	1952	2872	4067
18517	2771	3198	3489
18525	3278	3544	2903
17859	4000	3903	2330
9499	410	332	1736
9490	1107	665	1483
9255	1622	1001	1242
10758	1986	1329	2334
12375	2036	1639	3423
14617	2400	1975	4523
15427	2736	2304	3986
14136	2901	2640	3462
14308	2883	2992	2908
15293	3747	3330	2575
15679	4075	3690	2237
16319	4996	4063	1904
11196	575	368	1610
11169	999	738	1251
12158	1411	1103	941
14251	1493	1474	2450
16237	1846	1846	3946
19706	2899	2224	5409
18960	2372	2608	4741
18537	2856	2984	4069
19103	3468	3351	3539
19691	4193	3736	3189
19464	4440	4122	2960
17264	4186	4558	2704
8957	655	378	1697
9703	1453	749	1598
9166	1989	1113	1456
9519	2209	1500	2316
10535	2667	1867	3083
11526	3005	2244	4158
9630	2195	2621	3469
7061	2236	2988	2892
6021	2489	3349	2578
4728	2651	3723	2233
2657	2636	4108	1947
1264	2819	4514	2049




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56805&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56805&T=0

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
lov126410235.514279.517920.520154
di112123921062837.54996
aink28511302229.532344558
belin9411909.52897.539576181

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
lov & 1264 & 10235.5 & 14279.5 & 17920.5 & 20154 \tabularnewline
di & 112 & 1239 & 2106 & 2837.5 & 4996 \tabularnewline
aink & 285 & 1130 & 2229.5 & 3234 & 4558 \tabularnewline
belin & 941 & 1909.5 & 2897.5 & 3957 & 6181 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56805&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]lov[/C][C]1264[/C][C]10235.5[/C][C]14279.5[/C][C]17920.5[/C][C]20154[/C][/ROW]
[ROW][C]di[/C][C]112[/C][C]1239[/C][C]2106[/C][C]2837.5[/C][C]4996[/C][/ROW]
[ROW][C]aink[/C][C]285[/C][C]1130[/C][C]2229.5[/C][C]3234[/C][C]4558[/C][/ROW]
[ROW][C]belin[/C][C]941[/C][C]1909.5[/C][C]2897.5[/C][C]3957[/C][C]6181[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56805&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56805&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
lov126410235.514279.517920.520154
di112123921062837.54996
aink28511302229.532344558
belin9411909.52897.539576181







Boxplot Notches
Variablelower boundmedianupper bound
lov12711.935810511514279.515847.0641894885
di1779.9425690439421062432.05743095606
aink1800.332133417862229.52658.66786658214
belin2479.856840861722897.53315.14315913828

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
lov & 12711.9358105115 & 14279.5 & 15847.0641894885 \tabularnewline
di & 1779.94256904394 & 2106 & 2432.05743095606 \tabularnewline
aink & 1800.33213341786 & 2229.5 & 2658.66786658214 \tabularnewline
belin & 2479.85684086172 & 2897.5 & 3315.14315913828 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56805&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]lov[/C][C]12711.9358105115[/C][C]14279.5[/C][C]15847.0641894885[/C][/ROW]
[ROW][C]di[/C][C]1779.94256904394[/C][C]2106[/C][C]2432.05743095606[/C][/ROW]
[ROW][C]aink[/C][C]1800.33213341786[/C][C]2229.5[/C][C]2658.66786658214[/C][/ROW]
[ROW][C]belin[/C][C]2479.85684086172[/C][C]2897.5[/C][C]3315.14315913828[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56805&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56805&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
lov12711.935810511514279.515847.0641894885
di1779.9425690439421062432.05743095606
aink1800.332133417862229.52658.66786658214
belin2479.856840861722897.53315.14315913828



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