Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationWed, 16 Aug 2017 12:31:14 +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/16/t1502897081uhrym7m0vb41a1u.htm/, Retrieved Sun, 12 May 2024 06:59:41 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=307422, Retrieved Sun, 12 May 2024 06:59:41 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact81
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [stap 9 a reeks] [2017-08-16 10:31:14] [d9d1e371745129452d69402640252d41] [Current]
Feedback Forum

Post a new message
Dataseries X:
5452304
5431998
5411406
5368792
5790356
5768048
5452304
5242380
5262686
5262686
5285280
5325892
5389098
5389098
5348486
5242380
5790356
5873868
5747742
5452304
5578716
5389098
5474612
5515510
5558124
5452304
5474612
5325892
5790356
5937074
5810948
5578716
5831254
5558124
5810948
5790356
5853562
5621330
5873868
5853562
6232512
6146998
5810948
5641636
5873868
5558124
5790356
5831254
5916768
5727436
5831254
5894460
6126692
5937074
5684536
5411406
5664230
4969250
5305586
5494918
5684536
5411406
5411406
5411406
5558124
5348486
5073354
4843124
5010148
4358068
4757610
4989842
5032456
4800224
4820530
4757610
4969250
4820530
4527380
4315454
4673812
3895606
4400968
4631198
4631198
4358068
4105530
4085224
4315454
4105530
3706274
3431142
3726580
3031886
3663374
3999424
4105530
3873298
3579862
3789786
3873298
3810092
3178318
2885168
3094806
2463318
3115398
3347630
3536962
3221218
2925780
3094806
3178318
3011294
2379806
2104674
2357212
1662518
2420418
2885168




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

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

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
V1 & 1662518 & 4042324 & 5295433 & 5631483 & 6232512 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=307422&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]V1[/C][C]1662518[/C][C]4042324[/C][C]5295433[/C][C]5631483[/C][C]6232512[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=307422&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
V15066222.8656359152954335524643.13436409

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

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



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