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 computationWed, 11 Nov 2009 08:07:01 -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/11/t12579525543siundlfeemhf9s.htm/, Retrieved Fri, 26 Apr 2024 14:59:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55670, Retrieved Fri, 26 Apr 2024 14:59:18 +0000
QR Codes:

Original text written by user:best 1&3, 2&4 vergelijken -1&3: de mediaan in Vlaanderen ligt hoger. Wallonië heeft een schevere verdeling -2&4: de mediaan in Wallonië ligt hoger. Beide hebben outliers
IsPrivate?No (this computation is public)
User-defined keywordseconVl: economische situatie in Vlaanderen econWa: economische situatie in Wallonië prijsVl: consumptieprijs in Vlaanderen prijsWa: consumptieprijs in Wallonië
Estimated Impact174

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] [] [2009-11-11 15:07:01] [0744dbfa8cdb263e2e292d0a5ee9dc89] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
-22	46	-29	60
-20	50	-31	57
-17	49	-27	56
-21	48	-28	56
-16	50	-22	59
-11	47	-22	57
-19	50	-30	62
-31	49	-33	62
-36	51	-41	59
-33	52	-39	57
-26	48	-40	63
-38	55	-49	61
-27	56	-40	59
-21	43	-36	58
-17	44	-34	58
-14	50	-30	58
-16	49	-33	55
-16	47	-36	55
-15	46	-33	56
-7	50	-33	60
-9	49	-27	56
2	53	-22	59
-6	54	-28	59
0	56	-27	63
7	56	-27	60
4	58	-23	58
-5	53	-31	57
2	51	-28	58
0	52	-21	55
3	53	-23	57
10	56	-19	56
4	54	-20	53
5	54	-21	61
7	56	-26	65
1	59	-29	66
-8	62	-31	65
-3	62	-31	68
-16	73	-47	78
-22	76	-48	79
-32	80	-58	80
-30	77	-59	84
-32	81	-57	84
-38	80	-64	86
-41	80	-65	86
-46	81	-71	81
-58	80	-72	80
-55	77	-71	79
-48	71	-66	76
-58	71	-73	78
-58	64	-68	69
-68	64	-67	70
-75	47	-69	59
-77	41	-72	55
-75	35	-68	47
-71	34	-70	48
-63	33	-67	47
-61	23	-63	45
-53	16	-61	36
-41	16	-58	44
-35	8	-57	33
-33	9	-52	34

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55670&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
econVl-77-41-21-710
prijsVl3347526281
econWa-73-61-36-28-19
prijsWa4456596681

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
econVl & -77 & -41 & -21 & -7 & 10 \tabularnewline
prijsVl & 33 & 47 & 52 & 62 & 81 \tabularnewline
econWa & -73 & -61 & -36 & -28 & -19 \tabularnewline
prijsWa & 44 & 56 & 59 & 66 & 81 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55670&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]econVl[/C][C]-77[/C][C]-41[/C][C]-21[/C][C]-7[/C][C]10[/C][/ROW]
[ROW][C]prijsVl[/C][C]33[/C][C]47[/C][C]52[/C][C]62[/C][C]81[/C][/ROW]
[ROW][C]econWa[/C][C]-73[/C][C]-61[/C][C]-36[/C][C]-28[/C][C]-19[/C][/ROW]
[ROW][C]prijsWa[/C][C]44[/C][C]56[/C][C]59[/C][C]66[/C][C]81[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55670&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55670&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
econVl-77-41-21-710
prijsVl3347526281
econWa-73-61-36-28-19
prijsWa4456596681






Boxplot Notches
Variablelower boundmedianupper bound
econVl-27.8781411899952-21-14.1218588100048
prijsVl48.96552594559045255.0344740544096
econWa-42.6758429197012-36-29.3241570802988
prijsWa56.97701729706025961.0229827029398

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
econVl & -27.8781411899952 & -21 & -14.1218588100048 \tabularnewline
prijsVl & 48.9655259455904 & 52 & 55.0344740544096 \tabularnewline
econWa & -42.6758429197012 & -36 & -29.3241570802988 \tabularnewline
prijsWa & 56.9770172970602 & 59 & 61.0229827029398 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55670&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]econVl[/C][C]-27.8781411899952[/C][C]-21[/C][C]-14.1218588100048[/C][/ROW]
[ROW][C]prijsVl[/C][C]48.9655259455904[/C][C]52[/C][C]55.0344740544096[/C][/ROW]
[ROW][C]econWa[/C][C]-42.6758429197012[/C][C]-36[/C][C]-29.3241570802988[/C][/ROW]
[ROW][C]prijsWa[/C][C]56.9770172970602[/C][C]59[/C][C]61.0229827029398[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55670&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55670&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
econVl-27.8781411899952-21-14.1218588100048
prijsVl48.96552594559045255.0344740544096
econWa-42.6758429197012-36-29.3241570802988
prijsWa56.97701729706025961.0229827029398


Figures (Output of Computation)

Input Parameters & R Code

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