Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationSat, 08 Dec 2007 12:13:45 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2007/Dec/08/t11971404027xp9z0mrpd52gh4.htm/, Retrieved Mon, 29 Apr 2024 00:41:25 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=2946, Retrieved Mon, 29 Apr 2024 00:41:25 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact201
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [PAPER Financiële ...] [2007-12-08 19:13:45] [e0964b90cb3acfe235da067e79729c23] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.021999984
4.142192594
-0.972522981
-0.144204686
-1.781329541
-0.841648551
1.713701772
-0.997001107
-1.992103362
-1.294224594
-0.272982625
-1.892018822
1.235760721
0.563031786
-1.681777069
0.409391642
-1.163771183
0.273844923
0.419261998
0.142069989
-1.616052502
0.69356418
0.368288103
1.277297206
-1.42554929
2.687348328
0.117391693
0.100325687
1.041133291
1.723122897
-1.393957144
0.954507778
1.872948154
-2.215147469
-1.926013968
1.104353558
0.582607051
0.89288225
0.384912275
-2.405751477
-0.145150523
-0.56354464
-1.252593096
-0.323909682
-2.902829867
-1.154904595
0.308168949
-0.189829183
2.175477764
0.777371211
-0.027873566
1.082335914
-1.72111969
1.617255615
-0.611267443
-2.651404008
-3.44540633
-0.668921862
0.817370596
1.258840183




Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\begin{tabular}{lllllllll}
\hline
Summary of compuational 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 & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=2946&T=0

[TABLE]
[ROW][C]Summary of compuational 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]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=2946&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=2946&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 compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Fin.Situatie-3.44540633-1.273408845-0.0029367910.8551264232.687348328

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Fin.Situatie & -3.44540633 & -1.273408845 & -0.002936791 & 0.855126423 & 2.687348328 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=2946&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]Fin.Situatie[/C][C]-3.44540633[/C][C]-1.273408845[/C][C]-0.002936791[/C][C]0.855126423[/C][C]2.687348328[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=2946&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=2946&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
Fin.Situatie-3.44540633-1.273408845-0.0029367910.8551264232.687348328







Boxplot Notches
Variablelower boundmedianupper bound
Fin.Situatie-0.437109290958368-0.0029367910.431235708958368

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

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



Parameters (Session):
par1 = grey ;
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')