Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationMon, 07 Jul 2014 18:12:31 +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/2014/Jul/07/t1404753196ptyugy8pnpdkhzu.htm/, Retrieved Tue, 14 May 2024 08:34:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=235269, Retrieved Tue, 14 May 2024 08:34:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact157
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2014-07-07 17:12:31] [bdb7c0ed7ba273e65f9ee772c5dda4f0] [Current]
Feedback Forum

Post a new message
Dataseries X:
1069108
1059362
1049495
1029082
1231089
1220388
1069108
968521
978233
978233
989056
1008514
1069108
1049495
1079775
1129547
1412683
1412683
1352244
1291650
1341422
1401983
1412683
1442964
1533833
1473244
1473244
1564114
1816014
1836427
1785734
1664578
1755420
1755420
1765165
1816014
1856040
1876453
1876453
1937014
2169452
2229890
2239603
2088322
2169452
2139171
2078582
2209478
2239603
2188909
2199610
2269916
2532640
2663352
2663352
2602913
2693660
2602913
2552092
2744509
2774634
2703378
2884967
2956228
3168103
3308711
3289258
3278430
3359559
3349692
3228692
3410253
3470847
3410253
3662154
3783309
4065362
4176650
4146492
4085897
4136624
4197185
3995056
4156204
4257779
4216798
4479366
4570080
4953837
5024138
4933418
4984117
5014398
5044678
4852261
5033856
5134437
5033856
5326854
5417607
5811037
5871631
5891089
5992631
5992631
6032657
5851063
5941938
6002377
5891089
6214246
6274812
6678021
6749283
6849864
6940739
6950451
6961152
6779563
6961152




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

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
V196852117554202723943.54943627.56961152

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

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







Boxplot Notches
Variablelower boundmedianupper bound
V12264096.833017282723943.53183790.16698272

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

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



Parameters (Session):
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')