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, 17 Dec 2010 14:04:15 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/17/t1292594568ie11kceo3ov19p0.htm/, Retrieved Tue, 07 May 2024 03:00:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=111476, Retrieved Tue, 07 May 2024 03:00:39 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact126
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Central Tendency] [Paper CT Werklozen] [2010-12-17 12:21:08] [945bcebba5e7ac34a41d6888338a1ba9]
-    D  [Central Tendency] [Paper CT Failliss...] [2010-12-17 12:29:04] [945bcebba5e7ac34a41d6888338a1ba9]
- RMPD      [Notched Boxplots] [Paper V Notched B...] [2010-12-17 14:04:15] [514029464b0621595fe21c9fa38c7009] [Current]
Feedback Forum

Post a new message
Dataseries X:
36700	67
35600	189
80900	342
174000	432
169422	517
153452	623
173570	605
193036	716
174652	677
105367	710
95963	839
82896	886
121747	891
120196	917
103983	820
81103	793
70944	932
57248	906
47830	844
60095	801
60931	957
82955	1159
99559	1264
77911	1097
70753	1240
69287	1411
88426	1535
91756	1862
96933	1894
174484	2239
232595	2465
266197	2423
290435	2692
304296	2856
322310	3450
415555	4162
490042	4260
545109	4225
545720	4092
505944	4160
477930	3896
466106	3628
424476	3754
383018	3749
364696	3907
391116	4449
435721	5272
511435	6197
553997	6446
555252	7157
544897	7559
540562	7674
505282	6929
507626	7156
474427	6805
469740	7095
491480	7222
538974	7593
576612	7910




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111476&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111476&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111476&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'RServer@AstonUniversity' @ vre.aston.ac.uk







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Werklozen3560090091193036476178.5576612
Faillissementen6786522394242.57910

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Werklozen & 35600 & 90091 & 193036 & 476178.5 & 576612 \tabularnewline
Faillissementen & 67 & 865 & 2239 & 4242.5 & 7910 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111476&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]Werklozen[/C][C]35600[/C][C]90091[/C][C]193036[/C][C]476178.5[/C][C]576612[/C][/ROW]
[ROW][C]Faillissementen[/C][C]67[/C][C]865[/C][C]2239[/C][C]4242.5[/C][C]7910[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111476&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111476&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
Werklozen3560090091193036476178.5576612
Faillissementen6786522394242.57910







Boxplot Notches
Variablelower boundmedianupper bound
Werklozen113618.388354072193036272453.611645928
Faillissementen1544.2533859963822392933.74661400362

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Werklozen & 113618.388354072 & 193036 & 272453.611645928 \tabularnewline
Faillissementen & 1544.25338599638 & 2239 & 2933.74661400362 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111476&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]Werklozen[/C][C]113618.388354072[/C][C]193036[/C][C]272453.611645928[/C][/ROW]
[ROW][C]Faillissementen[/C][C]1544.25338599638[/C][C]2239[/C][C]2933.74661400362[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111476&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111476&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
Werklozen113618.388354072193036272453.611645928
Faillissementen1544.2533859963822392933.74661400362



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