Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationWed, 21 Aug 2013 01:24:24 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Aug/21/t1377062782cyko6xe2o209n49.htm/, Retrieved Sat, 27 Apr 2024 06:33:00 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=211284, Retrieved Sat, 27 Apr 2024 06:33:00 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsJoris Claus
Estimated Impact123
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Tijdreeks A - Stap 9] [2013-08-21 05:24:24] [5b48cba8ffed7710e2defc0d8d22bd89] [Current]
Feedback Forum

Post a new message
Dataseries X:
784437
792318
792318
801087
816849
833499
850038
850038
858030
865911
865911
865911
874569
914862
988455
997113
1046175
1086468
1095237
1135530
1144188
1144188
1144188
1168719
1193250
1193250
1242312
1266843
1348206
1421799
1421799
1429680
1446330
1470861
1470861
1487400
1503273
1519812
1519812
1568874
1683537
1691418
1732599
1757130
1757130
1772892
1781550
1789542
1806081
1813962
1813962
1838493
2051280
2067042
2108223
2108223
2157174
2157174
2181705
2189586
2222886
2247306
2336661
2394381
2565987
2615049
2655342
2664111
2679873
2713062
2721054
2762124
2762124
2811186
2966142
3064266
3235761
3292704
3309354
3350424
3358416
3366297
3382836
3399486
3415359
3448548
3628035
3701517
3930066
3995778
4012317
4036848
4061379
4069260
4077141
4077141
4085910
4158615
4314459
4387941
4706622
4739034
4755684
4771446
4771446
4812627
4853697
4853697
4861578
4886109
5033184
5082246
5408808
5466528
5491059
5548002
5621595
5629476
5638134
5638134




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

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Omzet784437142179922062364004047.55638134

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Omzet & 784437 & 1421799 & 2206236 & 4004047.5 & 5638134 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=211284&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]Omzet[/C][C]784437[/C][C]1421799[/C][C]2206236[/C][C]4004047.5[/C][C]5638134[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=211284&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
Omzet1833788.9851660822062362578683.01483392

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Omzet & 1833788.98516608 & 2206236 & 2578683.01483392 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=211284&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]Omzet[/C][C]1833788.98516608[/C][C]2206236[/C][C]2578683.01483392[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=211284&T=2

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



Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = grey ;
R code (references can be found in the software module):
par1 <- 'grey'
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')