Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationMon, 27 Jul 2015 12:09:48 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Jul/27/t14379954490kg0bg3lmtx66i6.htm/, Retrieved Fri, 17 May 2024 11:41:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=279696, Retrieved Fri, 17 May 2024 11:41:56 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact177
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Omzet product ban...] [2015-07-27 11:09:48] [318ebe2e7bf55ee158992108d321fa26] [Current]
Feedback Forum

Post a new message
Dataseries X:
6195,8
6172,725
6149,325
6100,9
6579,95
6554,6
6195,8
5957,25
5980,325
5980,325
6006
6052,15
6123,975
6123,975
6077,825
5957,25
6579,95
6674,85
6531,525
6195,8
6339,45
6123,975
6221,15
6267,625
6316,05
6195,8
6221,15
6052,15
6579,95
6746,675
6603,35
6339,45
6626,425
6316,05
6603,35
6579,95
6651,775
6387,875
6674,85
6651,775
7082,4
6985,225
6603,35
6410,95
6674,85
6316,05
6579,95
6626,425
6723,6
6508,45
6626,425
6698,25
6962,15
6746,675
6459,7
6149,325
6436,625
5646,875
6029,075
6244,225
6459,7
6149,325
6149,325
6149,325
6316,05
6077,825
5765,175
5503,55
5693,35
4952,35
5406,375
5670,275
5718,7
5454,8
5477,875
5406,375
5646,875
5477,875
5144,75
4903,925
5311,15
4426,825
5001,1
5262,725
5262,725
4952,35
4665,375
4642,3
4903,925
4665,375
4211,675
3899,025
4234,75
3445,325
4162,925
4544,8
4665,375
4401,475
4068,025
4306,575
4401,475
4329,65
3611,725
3278,6
3516,825
2799,225
3540,225
3804,125
4019,275
3660,475
3324,75
3516,825
3611,725
3421,925
2704,325
2391,675
2678,65
1889,225
2750,475
3278,6




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=279696&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'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
V11889.2254593.556017.53756399.41257082.4

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

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







Boxplot Notches
Variablelower boundmedianupper bound
V15757.071438222636017.53756278.00356177737

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

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



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