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 03:38:41 -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/t1258108897itifcmlnosct9yi.htm/, Retrieved Sun, 05 May 2024 16:55:23 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56457, Retrieved Sun, 05 May 2024 16:55:23 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact187
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] [workshop 6] [2009-11-13 10:38:41] [307139c5e328127f586f26d5bcc435d8] [Current]
Feedback Forum

Post a new message
Dataseries X:
412	1985	10341	10341
602	1963	9690	9690
613	2017	10125	10125
482	1975	9349	9349
241	1589	9224	9224
277	1679	9224	9224
252	1392	9454	9454
383	1511	9347	9347
506	1449	9430	9430
366	1767	9933	9933
473	1899	10148	10148
581	2179	10677	10677
688	2217	10735	10735
792	2049	9760	9760
761	2343	10567	10567
592	2175	9333	9333
251	1607	9409,00	9409
162	1702	9502	9502
183	1764	9348	9348
164	1766	9319	9319
223	1615	9594	9594
237	1953	10160	10160
567	2091	10182	10182
778	2411	10810	10810
888	2550	11105	11105
1118	2351	9874	9874
1275	2786	10958	10958
419	2525	9311	9311
324	2474	9610	9610
197	2332	9398	9398
172	1978	9784	9784
220	1789	9425	9425
98	1904	9557	9557
122	1997	10166	10166
303	2207	10337	10337
750	2453	10770	10770
745	1948	11265	11265
293	1384	10183	10183
534	1989	10941	10941
318	2140	9628	9628
72	2100	9709	9709
67	2045	9637	9637
256	2083	9579	9579
82	2022	9741	9741
337	1950	9754	9754
596	1422	10508	10508
1152	1859	10749	10749
1028	2147	11079	11079
1011	2273	11608	11608
823	1881	10668	10668
1545	2454	10933	10933
1211	2081	9703	9703
593	2376	9799	9799
348	2265	9656	9656
341	2131	9648	9648
340	2333	9712	9712
589	1881	9766	9766
1095	1563	10540	10540
788	1738	10564	10564
432	1990	10911	10911




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56457&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
invoer67251.5425.5747.51275
uitvoer138417781993.522122786
verbruik92249568977510565.511608
aanbod92249568977510565.511608

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
invoer & 67 & 251.5 & 425.5 & 747.5 & 1275 \tabularnewline
uitvoer & 1384 & 1778 & 1993.5 & 2212 & 2786 \tabularnewline
verbruik & 9224 & 9568 & 9775 & 10565.5 & 11608 \tabularnewline
aanbod & 9224 & 9568 & 9775 & 10565.5 & 11608 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56457&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]invoer[/C][C]67[/C][C]251.5[/C][C]425.5[/C][C]747.5[/C][C]1275[/C][/ROW]
[ROW][C]uitvoer[/C][C]1384[/C][C]1778[/C][C]1993.5[/C][C]2212[/C][C]2786[/C][/ROW]
[ROW][C]verbruik[/C][C]9224[/C][C]9568[/C][C]9775[/C][C]10565.5[/C][C]11608[/C][/ROW]
[ROW][C]aanbod[/C][C]9224[/C][C]9568[/C][C]9775[/C][C]10565.5[/C][C]11608[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56457&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56457&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
invoer67251.5425.5747.51275
uitvoer138417781993.522122786
verbruik92249568977510565.511608
aanbod92249568977510565.511608







Boxplot Notches
Variablelower boundmedianupper bound
invoer324.327347041472425.5526.672652958528
uitvoer1904.973928661291993.52082.02607133871
verbruik9571.53281990797759978.467180093
aanbod9571.53281990797759978.467180093

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
invoer & 324.327347041472 & 425.5 & 526.672652958528 \tabularnewline
uitvoer & 1904.97392866129 & 1993.5 & 2082.02607133871 \tabularnewline
verbruik & 9571.532819907 & 9775 & 9978.467180093 \tabularnewline
aanbod & 9571.532819907 & 9775 & 9978.467180093 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56457&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]invoer[/C][C]324.327347041472[/C][C]425.5[/C][C]526.672652958528[/C][/ROW]
[ROW][C]uitvoer[/C][C]1904.97392866129[/C][C]1993.5[/C][C]2082.02607133871[/C][/ROW]
[ROW][C]verbruik[/C][C]9571.532819907[/C][C]9775[/C][C]9978.467180093[/C][/ROW]
[ROW][C]aanbod[/C][C]9571.532819907[/C][C]9775[/C][C]9978.467180093[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56457&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56457&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
invoer324.327347041472425.5526.672652958528
uitvoer1904.973928661291993.52082.02607133871
verbruik9571.53281990797759978.467180093
aanbod9571.53281990797759978.467180093



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