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 computationTue, 28 Oct 2008 08:21:20 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Oct/28/t122520371336naiqu9ruog7zr.htm/, Retrieved Sun, 19 May 2024 17:03:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=19766, Retrieved Sun, 19 May 2024 17:03:42 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Notched Boxplots] [q1] [2008-10-28 14:21:20] [b4fc5040f26b33db57f84cfb8d1d2b82] [Current]
- RMPD    [Blocked Bootstrap Plot - Central Tendency] [Q4] [2008-10-29 12:17:08] [c5a66f1c8528a963efc2b82a8519f117]
-    D    [Notched Boxplots] [verbetering task 2] [2008-11-11 11:52:57] [c5a66f1c8528a963efc2b82a8519f117]
Feedback Forum
2008-11-07 11:41:09 [Christy Masson] [reply] 
we kunnen inderdaad aflezen van de tabel en de grafiek dat de mediaan van de kledingproductie SIGNIFICANT lager (niet toevallig) ligt dan deze van industriële productie
2008-11-10 09:50:12 [Kevin Neelen] [reply] 
Zoals deze studente in bijgevoegd Word-document vermeld heeft, kan gesteld worden dat mediaan van kledingproductie lager ligt dan die van de totale productie. Meer zelfs, deze mediaan ligt significant lager. Hiermee wordt bedoeld dat de verschillen in medianen niet toe te schrijven zijn aan toeval. Dit kan ook besloten worden door te kijken of de beide betrouwbaarheidsintervallen (de notches in de boxen) met elkaar samenvallen. Dat is hier duidelijk niet het geval waardoor dus geconcludeerd mag worden dat de mediaan van kledindproductie significant lager ligt dan deze van de totale productie.
Daarnaast kan besloten worden dat de kledingproductie een normaalverdeling kent aangezien de mediaan vrij in het midden ligt tussen de notches van de box.
Ten slotte moet er wel opgemerkt worden dat bij de ingegeven tijdreeks, er een witregel te vinden is op het einde van deze reeks. In hoeverre dit de bekomen resultaten beïnvloedt, is mij niet bepaald duidelijk.
2008-11-10 10:53:25 [Zeno Thoelen] [reply] 
2008-11-10 10:59:01 [a7e076854c32462fd499d2de3f6d4e86] [reply] 
Zoals boven vermeld:
-wordt is de mediaan van de kledingproductie significant lager (dan deze van de industrieële productie), het is dus niet toe te schrijven aan een toeval.
-kan men kijken naar de notches in de boxen: de betrouwbaarheidsintervallen van niet samen --> de mediaan van de kledingsproductie = significant lager dan deze van de totale productie

2008-11-11 09:59:47 [Sanne Kerckhofs] [reply] 
* We kunnen hier duidelijk aflezen dat de mediaan van de productie van kleding lager ligt dan de mediaan van de totale productie. Nu is de vraag of het verschil significant is of dat het louter toevallig is. A.d.h.v. van de grafische weergave kunnen we zien dat de mediaan van de productie van kledij duidelijk ver onder de mediaan van de totale productie ligt. Het is dus een SIGNIFICANT verschil. Het is dus niet toe te schrijven aan het toeval.
* We kunnen uit dit resultaat ook aflezen dat er een verschil is t.o.v. het basisjaar 2000 (bij een waarde 100). Je kan zien dat de totale productie lichtjes gestegen is ten opzichte van het basisjaar en dat de productie van kleding lichtjes gedaalt is t.o.v. het basisjaar.
* Een derde zaak dat we kunnen aflezen is dat de mediaan in het midden van de notches ligt wat duidt op een normaalverdeling.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
110,40	109,20
96,40	88,60
101,90	94,30
106,20	98,30
81,00	86,40
94,70	80,60
101,00	104,10
109,40	108,20
102,30	93,40
90,70	71,90
96,20	94,10
96,10	94,90
106,00	96,40
103,10	91,10
102,00	84,40
104,70	86,40
86,00	88,00
92,10	75,10
106,90	109,70
112,60	103,00
101,70	82,10
92,00	68,00
97,40	96,40
97,00	94,30
105,40	90,00
102,70	88,00
98,10	76,10
104,50	82,50
87,40	81,40
89,90	66,50
109,80	97,20
111,70	94,10
98,60	80,70
96,90	70,50
95,10	87,80
97,00	89,50
112,70	99,60
102,90	84,20
97,40	75,10
111,40	92,00
87,40	80,80
96,80	73,10
114,10	99,80
110,30	90,00
103,90	83,10
101,60	72,40
94,60	78,80
95,90	87,30
104,70	91,00
102,80	80,10
98,10	73,60
113,90	86,40
80,90	74,50
95,70	71,20
113,20	92,40
105,90	81,50
108,80	85,30
102,30	69,90
99,00	84,20
100,70	90,70
115,50	100,30

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=19766&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
x18696.2101.7106115.5
x266.580.687.394.1109.7

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
x1 & 86 & 96.2 & 101.7 & 106 & 115.5 \tabularnewline
x2 & 66.5 & 80.6 & 87.3 & 94.1 & 109.7 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=19766&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]x1[/C][C]86[/C][C]96.2[/C][C]101.7[/C][C]106[/C][C]115.5[/C][/ROW]
[ROW][C]x2[/C][C]66.5[/C][C]80.6[/C][C]87.3[/C][C]94.1[/C][C]109.7[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=19766&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=19766&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
x18696.2101.7106115.5
x266.580.687.394.1109.7






Boxplot Notches
Variablelower boundmedianupper bound
x199.717476951119101.7103.682523048881
x284.568973351031387.390.0310266489687

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
x1 & 99.717476951119 & 101.7 & 103.682523048881 \tabularnewline
x2 & 84.5689733510313 & 87.3 & 90.0310266489687 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=19766&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]x1[/C][C]99.717476951119[/C][C]101.7[/C][C]103.682523048881[/C][/ROW]
[ROW][C]x2[/C][C]84.5689733510313[/C][C]87.3[/C][C]90.0310266489687[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=19766&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=19766&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
x199.717476951119101.7103.682523048881
x284.568973351031387.390.0310266489687


Figures (Output of Computation)

Input Parameters & R Code

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