Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationSun, 19 Dec 2010 21:25:49 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/19/t129279383579efh56bkxxb8a3.htm/, Retrieved Sun, 05 May 2024 07:49:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=112755, Retrieved Sun, 05 May 2024 07:49:19 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact117
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Notched Boxplot g...] [2010-12-19 21:25:49] [214713b86cef2e1efaaf6d85aa84ff3c] [Current]
Feedback Forum

Post a new message
Dataseries X:
0,762253	1,3119	35.16
0,768403	1,3014	41.54
0,757518	1,3201	45.07
0,772917	1,2938	46.84
0,787774	1,2694	45.20
0,82203	1,2165	46.65
0,830772	1,2037	52.55
0,813537	1,2292	55.05
0,815927	1,2256	60.75
0,832293	1,2015	55.99
0,848464	1,1786	53.39
0,843455	1,1856	49.42
0,826241	1,2103	55.12
0,837661	1,1938	59.84
0,831947	1,202	        55.98
0,81493	1,2271	61.27
0,783085	1,277	        66.94
0,790514	1,265	        64.67
0,788395	1,2684	67.74
0,780579	1,2811	69.79
0,785731	1,2727	64.49
0,792959	1,2611	54.92
0,776337	1,2881	53.32
0,75683	1,3213	56.13
0,76929	1,2999	54.63
0,764877	1,3074	52.11
0,755173	1,3242	57.83
0,739864	1,3516	64.93
0,740138	1,3511	63.40
0,745212	1,3419	65.37
0,729076	1,3716	69.91
0,734107	1,3622	73.81
0,719632	1,3896	71.42
0,702889	1,4227	75.57
0,681013	1,4684	86.02
0,686342	1,457	        85.91
0,67944	1,4718	92.93
0,678058	1,4748	88.71
0,644039	1,5527	98.01
0,63488	1,5751	98.39
0,642797	1,5557	110.21
0,642963	1,5553	121.36
0,634115	1,577	        137.11
0,66778	1,4975	121.29
0,695894	1,437	        106.41
0,750638	1,3322	93.38
0,785423	1,2732	58.66
0,74355	1,3449	43.12
0,755344	1,3239	34.57
0,782167	1,2785	41.77
0,766284	1,305	        42.85
0,75815	1,319  	48.09
0,732601	1,365	        48.91
0,71347	1,4016	65.62
0,709824	1,4088	68.47
0,700869	1,4268	71.52
0,686719	1,4562	68.07
0,674946	1,4816	65.00
0,670511	1,4914	76.34
0,684275	1,4614	76.18




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112755&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112755&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112755&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'Gwilym Jenkins' @ 72.249.127.135







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
PeriodegemiddeldeEUR0.6341150.69838150.7560870.78675250.848464
PeriodegemiddeldeUS1.17861.271051.32261.43191.577
Olieprijzen34.5752.93563.94574.69106.41

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
PeriodegemiddeldeEUR & 0.634115 & 0.6983815 & 0.756087 & 0.7867525 & 0.848464 \tabularnewline
PeriodegemiddeldeUS & 1.1786 & 1.27105 & 1.3226 & 1.4319 & 1.577 \tabularnewline
Olieprijzen & 34.57 & 52.935 & 63.945 & 74.69 & 106.41 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112755&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]PeriodegemiddeldeEUR[/C][C]0.634115[/C][C]0.6983815[/C][C]0.756087[/C][C]0.7867525[/C][C]0.848464[/C][/ROW]
[ROW][C]PeriodegemiddeldeUS[/C][C]1.1786[/C][C]1.27105[/C][C]1.3226[/C][C]1.4319[/C][C]1.577[/C][/ROW]
[ROW][C]Olieprijzen[/C][C]34.57[/C][C]52.935[/C][C]63.945[/C][C]74.69[/C][C]106.41[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112755&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112755&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
PeriodegemiddeldeEUR0.6341150.69838150.7560870.78675250.848464
PeriodegemiddeldeUS1.17861.271051.32261.43191.577
Olieprijzen34.5752.93563.94574.69106.41







Boxplot Notches
Variablelower boundmedianupper bound
PeriodegemiddeldeEUR0.7380613376721810.7560870.774112662327819
PeriodegemiddeldeUS1.289790279781491.32261.35540972021851
Olieprijzen59.507477691304963.94568.3825223086951

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
PeriodegemiddeldeEUR & 0.738061337672181 & 0.756087 & 0.774112662327819 \tabularnewline
PeriodegemiddeldeUS & 1.28979027978149 & 1.3226 & 1.35540972021851 \tabularnewline
Olieprijzen & 59.5074776913049 & 63.945 & 68.3825223086951 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112755&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]PeriodegemiddeldeEUR[/C][C]0.738061337672181[/C][C]0.756087[/C][C]0.774112662327819[/C][/ROW]
[ROW][C]PeriodegemiddeldeUS[/C][C]1.28979027978149[/C][C]1.3226[/C][C]1.35540972021851[/C][/ROW]
[ROW][C]Olieprijzen[/C][C]59.5074776913049[/C][C]63.945[/C][C]68.3825223086951[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112755&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112755&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
PeriodegemiddeldeEUR0.7380613376721810.7560870.774112662327819
PeriodegemiddeldeUS1.289790279781491.32261.35540972021851
Olieprijzen59.507477691304963.94568.3825223086951



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