Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationFri, 11 Aug 2017 10:26:12 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Aug/11/t1502440028kyoetjhhqyw2ka6.htm/, Retrieved Sat, 11 May 2024 16:08:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=307115, Retrieved Sat, 11 May 2024 16:08:01 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact170
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2017-08-11 08:26:12] [b4406e95441bfa154caa3f19e1e15192] [Current]
Feedback Forum

Post a new message
Dataseries X:
5947968
5925816
5903352
5856864
6316752
6292416
5947968
5718960
5741112
5741112
5765760
5810064
5879016
5879016
5834712
5718960
6316752
6407856
6270264
5947968
6085872
5879016
5972304
6016920
6063408
5947968
5972304
5810064
6316752
6476808
6339216
6085872
6361368
6063408
6339216
6316752
6385704
6132360
6407856
6385704
6799104
6705816
6339216
6154512
6407856
6063408
6316752
6361368
6454656
6248112
6361368
6430320
6683664
6476808
6201312
5903352
6179160
5421000
5787912
5994456
6201312
5903352
5903352
5903352
6063408
5834712
5534568
5283408
5465616
4754256
5190120
5443464
5489952
5236608
5258760
5190120
5421000
5258760
4938960
4707768
5098704
4249752
4801056
5052216
5052216
4754256
4478760
4456608
4707768
4478760
4043208
3743064
4065360
3307512
3996408
4363008
4478760
4225416
3905304
4134312
4225416
4156464
3467256
3147456
3376152
2687256
3398616
3651960
3858504
3514056
3191760
3376152
3467256
3285048
2596152
2296008
2571504
1813656
2640456
3147456




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=307115&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=307115&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=307115&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
A18136564409808577683661434366799104

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
A & 1813656 & 4409808 & 5776836 & 6143436 & 6799104 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=307115&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]A[/C][C]1813656[/C][C]4409808[/C][C]5776836[/C][C]6143436[/C][C]6799104[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=307115&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
A5526788.5806937257768366026883.41930628

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

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



Parameters (Session):
Parameters (R input):
par1 = grey ; par2 = no ;
R code (references can be found in the software module):
if(par2=='yes') {
z <- na.omit(as.data.frame(t(y)))
} else {
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,'Boxplot statistics',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower whisker',1,TRUE)
a<-table.element(a,'lower hinge',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper hinge',1,TRUE)
a<-table.element(a,'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')