FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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 10:03: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/2009/Nov/13/t1258131966mbw7hxdssx8anvy.htm/, Retrieved Sun, 28 Apr 2024 21:19:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56907, Retrieved Sun, 28 Apr 2024 21:19:58 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords4tijdreeksen
Estimated Impact168

Tree of Dependent Computations

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]
-   PD  [Notched Boxplots] [WS 4: Notched Box...] [2009-11-09 12:07:49] [74be16979710d4c4e7c6647856088456]
-         [Notched Boxplots] [WS 6: Notched Box...] [2009-11-09 12:18:05] [74be16979710d4c4e7c6647856088456]
-    D        [Notched Boxplots] [ws6 notched boxplot] [2009-11-13 17:03:45] [95523ebdb89b97dbf680ec91e0b4bca2] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
100	100	100	100.00
100	102.9268293	103.355751	100.00
100	101.9512195	105.9736792	102.00
100	100	108.1650198	94.00
100	101.4634146	111.7463979	97.00
100	100.4878049	112.6764753	98.00
100	100.4878049	113.1513081	108.00
100	101.4634146	111.0455752	100.00
100	100.9756098	112.3532698	87.00
100	100.4878049	114.68862	98.00
100	100.9756098	118.1517434	106.00
100	100.4878049	118.8717915	106.00
100	101.9512195	119.535977	110.00
100	100.9756098	122.0269447	100.00
100	101.9512195	126.7491548	88.00
125	111.2195122	133.0195592	104.00
125	113.6585366	138.3167196	104.00
125	114.6341463	142.1219112	93.00
150	122.9268293	141.3075494	109.00
150	128.2926829	137.881426	106.00
150	125.8536585	129.5042006	109.00
175	131.7073171	134.2739303	98.00
175	137.0731707	140.1017862	115.00
200	144.8780488	144.0132619	121.00
200	148.2926829	150.1226077	114.00
225	160	152.3436933	109.00
225	162.4390244	155.6497483	94.00
250	170.7317073	161.2004672	100.00
250	173.6585366	163.3308667	105.00
250	174.1463415	158.0471278	110.00
275	180	166.5458727	107.00
275	186.3414634	170.3797211	103.00
275	184.8780488	167.6388224	102.00
300	193.1707317	165.5145896	110.00
300	198.0487805	152.4441736	109.00
300	197.5609756	155.8528853	104.00
300	196.5853659	160.8856048	104.00
300	192.195122	148.913217	99.00
300	196.097561	149.3303733	96.00
300	189.2682927	139.4568261	104.00
300	196.097561	134.9765667	109.00
300	196.5853659	133.286902	94.00
300	199.5121951	139.9331099	91.00
300	194.6341463	137.881426	87.00
300	195.6097561	127.1191544	92.00
300	195.6097561	110.005949	85.00
325	204.3902439	110.5293896	88.00
325	209.7560976	107.457305	82.00
325	208.2926829	79.72474934	80.00
325	186.3414634	73.07310031	68.00
275	153.6585366	67.5731656	52.00
200	121.4634146	69.11773241	45.00
100	88.29268293	65.69269722	49.00
100	61.46341463	60.58089932	42.00
50	51.70731707	67.63156749	45.00
25	40.97560976	74.43593204	38.00
25	38.04878049	73.62265848	45.00
25	34.14634146	75.11825476	48.00
25	17.56097561	83.19222566	54.00
25	17.07317073	88.6283173	63.00

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56907&T=0

As an alternative you can also use a QR Code:  
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
CBI25100175300325
market-I17.07317073100.9756098130190.73170735209.7560976
bel2060.58089932106.7154921126.9341546146.46323945170.3797211
conjunctuur638799.5106121

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
CBI & 25 & 100 & 175 & 300 & 325 \tabularnewline
market-I & 17.07317073 & 100.9756098 & 130 & 190.73170735 & 209.7560976 \tabularnewline
bel20 & 60.58089932 & 106.7154921 & 126.9341546 & 146.46323945 & 170.3797211 \tabularnewline
conjunctuur & 63 & 87 & 99.5 & 106 & 121 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56907&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]CBI[/C][C]25[/C][C]100[/C][C]175[/C][C]300[/C][C]325[/C][/ROW]
[ROW][C]market-I[/C][C]17.07317073[/C][C]100.9756098[/C][C]130[/C][C]190.73170735[/C][C]209.7560976[/C][/ROW]
[ROW][C]bel20[/C][C]60.58089932[/C][C]106.7154921[/C][C]126.9341546[/C][C]146.46323945[/C][C]170.3797211[/C][/ROW]
[ROW][C]conjunctuur[/C][C]63[/C][C]87[/C][C]99.5[/C][C]106[/C][C]121[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56907&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56907&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
CBI25100175300325
market-I17.07317073100.9756098130190.73170735209.7560976
bel2060.58089932106.7154921126.9341546146.46323945170.3797211
conjunctuur638799.5106121






Boxplot Notches
Variablelower boundmedianupper bound
CBI134.204575419949175215.795424580051
market-I111.691809458996130148.308190541004
bel20118.826523453781126.9341546135.041785746219
conjunctuur95.62443466489599.5103.375565335105

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
CBI & 134.204575419949 & 175 & 215.795424580051 \tabularnewline
market-I & 111.691809458996 & 130 & 148.308190541004 \tabularnewline
bel20 & 118.826523453781 & 126.9341546 & 135.041785746219 \tabularnewline
conjunctuur & 95.624434664895 & 99.5 & 103.375565335105 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56907&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]CBI[/C][C]134.204575419949[/C][C]175[/C][C]215.795424580051[/C][/ROW]
[ROW][C]market-I[/C][C]111.691809458996[/C][C]130[/C][C]148.308190541004[/C][/ROW]
[ROW][C]bel20[/C][C]118.826523453781[/C][C]126.9341546[/C][C]135.041785746219[/C][/ROW]
[ROW][C]conjunctuur[/C][C]95.624434664895[/C][C]99.5[/C][C]103.375565335105[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56907&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56907&T=2

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot Notches
Variablelower boundmedianupper bound
CBI134.204575419949175215.795424580051
market-I111.691809458996130148.308190541004
bel20118.826523453781126.9341546135.041785746219
conjunctuur95.62443466489599.5103.375565335105


Figures (Output of Computation)

Input Parameters & R Code

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