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 computationFri, 13 Nov 2009 05:58:13 -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/2009/Nov/13/t1258117152r5tk7hxaw07m1l5.htm/, Retrieved Sun, 05 May 2024 19:46:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56548, Retrieved Sun, 05 May 2024 19:46:32 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact118
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
-    D    [Notched Boxplots] [] [2009-11-13 12:58:13] [2f6049721194fa571920c3539d7b729e] [Current]
Feedback Forum

Post a new message
Dataseries X:
2.155	22.782	17	12.7
2.172	19.169	14	12.3
2.15	13.807	15	11.9
2.533	29.743	16	12
2.058	25.591	16	12.3
2.16	29.096	15	12.8
2.26	26.482	13	12.4
2.498	22.405	12	12.3
2.695	27.044	13	12.7
2.799	17.97	13	12.7
2.947	18.73	12	12.9
2.93	19.684	10	13
2.318	19.785	14	12.2
2.54	18.479	14	12.3
2.57	10.698	15	12.8
2.669	31.956	16	12.8
2.45	29.506	16	12.8
2.842	34.506	15	12.2
3.44	27.165	15	12.6
2.678	26.736	13	12.8
2.981	23.691	15	12.5
2.26	18.157	15	12.4
2.844	17.328	15	12.3
2.546	18.205	13	11.9
2.456	20.995	16	11.7
2.295	17.382	16	12
2.379	9.367	14	12.1
2.479	31.124	16	11.7
2.057	26.551	15	11.8
2.28	30.651	14	11.8
2.351	25.859	15	11.8
2.276	25.1	15	11.3
2.548	25.778	14	11.3
2.311	20.418	13	11.3
2.201	18.688	12	11.2
2.725	20.424	13	11.4
2.408	24.776	12	12.2
2.139	19.814	9	12.9
1.898	12.738	10	13.1
2.537	31.566	8	13.5
2.069	30.111	11	13.6
2.063	30.019	8	14.4
2.524	31.934	8	14.1
2.437	25.826	8	15.1
2.189	26.835	4	15.8
2.793	20.205	6	15.9
2.074	17.789	8	15.4
2.622	20.52	10	15.5
2.278	22.518	5	14.8
2.144	15.572	6	13.2
2.427	11.509	5	12.7
2.139	25.447	9	12.1
1.828	24.09	8	11.9
2.072	27.786	6	10.6
1.8	26.195	9	10.7
1.758	20.516	11	0.8
2.246	22.759	11	0.9
1.987	19.028	8	8.3
1.868	16.971	11	9.3
2.514	20.036	11	9
2.121	22.485	13	9.1




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56548&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
gebouwen1.7582.1442.3182.5462.981
auto9.36718.7322.51826.73634.506
prijsindex49131517
financielesituatie10.611.812.312.814.1

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
gebouwen & 1.758 & 2.144 & 2.318 & 2.546 & 2.981 \tabularnewline
auto & 9.367 & 18.73 & 22.518 & 26.736 & 34.506 \tabularnewline
prijsindex & 4 & 9 & 13 & 15 & 17 \tabularnewline
financielesituatie & 10.6 & 11.8 & 12.3 & 12.8 & 14.1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56548&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]gebouwen[/C][C]1.758[/C][C]2.144[/C][C]2.318[/C][C]2.546[/C][C]2.981[/C][/ROW]
[ROW][C]auto[/C][C]9.367[/C][C]18.73[/C][C]22.518[/C][C]26.736[/C][C]34.506[/C][/ROW]
[ROW][C]prijsindex[/C][C]4[/C][C]9[/C][C]13[/C][C]15[/C][C]17[/C][/ROW]
[ROW][C]financielesituatie[/C][C]10.6[/C][C]11.8[/C][C]12.3[/C][C]12.8[/C][C]14.1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56548&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56548&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
gebouwen1.7582.1442.3182.5462.981
auto9.36718.7322.51826.73634.506
prijsindex49131517
financielesituatie10.611.812.312.814.1







Boxplot Notches
Variablelower boundmedianupper bound
gebouwen2.236676095341822.3182.39932390465818
auto20.898400048026422.51824.1375999519736
prijsindex11.78621037823611314.2137896217639
financielesituatie12.097701729706012.312.5022982702940

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
gebouwen & 2.23667609534182 & 2.318 & 2.39932390465818 \tabularnewline
auto & 20.8984000480264 & 22.518 & 24.1375999519736 \tabularnewline
prijsindex & 11.7862103782361 & 13 & 14.2137896217639 \tabularnewline
financielesituatie & 12.0977017297060 & 12.3 & 12.5022982702940 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56548&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]gebouwen[/C][C]2.23667609534182[/C][C]2.318[/C][C]2.39932390465818[/C][/ROW]
[ROW][C]auto[/C][C]20.8984000480264[/C][C]22.518[/C][C]24.1375999519736[/C][/ROW]
[ROW][C]prijsindex[/C][C]11.7862103782361[/C][C]13[/C][C]14.2137896217639[/C][/ROW]
[ROW][C]financielesituatie[/C][C]12.0977017297060[/C][C]12.3[/C][C]12.5022982702940[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56548&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56548&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
gebouwen2.236676095341822.3182.39932390465818
auto20.898400048026422.51824.1375999519736
prijsindex11.78621037823611314.2137896217639
financielesituatie12.097701729706012.312.5022982702940



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