FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationFri, 26 Oct 2007 06:31:48 -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/2007/Oct/26/e3gf4m47miu91211193405177.htm/, Retrieved Sun, 28 Apr 2024 23:39:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=1838, Retrieved Sun, 28 Apr 2024 23:39:05 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsnotched boxplot
Estimated Impact666

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] [workshop 3] [2007-10-26 13:31:48] [d06427f3e67cec1f6334fc93f511b0b4] [Current]
- RMPD    [Mean Plot] [Boxplots Dollar ] [2008-01-14 19:32:01] [74be16979710d4c4e7c6647856088456]
- RMPD    [Box-Cox Linearity Plot] [Box Cox linearity...] [2008-01-14 22:00:56] [74be16979710d4c4e7c6647856088456]
- RMPD    [Bivariate Kernel Density Estimation] [Bivariate Kernel ...] [2008-01-14 22:14:00] [74be16979710d4c4e7c6647856088456]
- R  D    [Notched Boxplots] [Q1] [2008-10-28 14:07:27] [c5a66f1c8528a963efc2b82a8519f117]
-           [Notched Boxplots] [Q1] [2008-11-04 17:45:45] [b1bd16d1f47bfe13feacf1c27a0abba5]
- R  D    [Notched Boxplots] [Q1] [2008-10-28 14:07:27] [3d2d096cc21c6f80db3dd7b8e12effce]
- R  D      [Notched Boxplots] [Wokshop 1, Q1 (Ba2)] [2008-11-06 12:03:44] [488d9a19d3c63b747ac6ad96017e55c8]
- RM D      [Mean Plot] [Workshop 1, Q2 (Ba2)] [2008-11-06 12:23:47] [488d9a19d3c63b747ac6ad96017e55c8]
- RM D      [Blocked Bootstrap Plot - Central Tendency] [Workshop 1, Q4 (Ba2)] [2008-11-06 13:03:43] [488d9a19d3c63b747ac6ad96017e55c8]
F             [Blocked Bootstrap Plot - Central Tendency] [] [2008-11-06 19:21:47] [072bb89749ef40809573ea0372b43d78]
-    D      [Notched Boxplots] [Workshop 1, task ...] [2008-11-06 13:51:03] [488d9a19d3c63b747ac6ad96017e55c8]
-    D      [Notched Boxplots] [] [2008-11-06 14:13:07] [488d9a19d3c63b747ac6ad96017e55c8]
-    D      [Notched Boxplots] [] [2008-11-06 14:19:50] [488d9a19d3c63b747ac6ad96017e55c8]
-    D      [Notched Boxplots] [] [2008-11-06 14:22:51] [488d9a19d3c63b747ac6ad96017e55c8]
-    D      [Notched Boxplots] [] [2008-11-06 14:27:04] [488d9a19d3c63b747ac6ad96017e55c8]
-    D      [Notched Boxplots] [Workshop 1, task ...] [2008-11-06 14:39:39] [488d9a19d3c63b747ac6ad96017e55c8]
F RM D        [Kendall tau Correlation Matrix] [] [2008-11-06 17:09:26] [488d9a19d3c63b747ac6ad96017e55c8]
- R  D    [Notched Boxplots] [Q1] [2008-10-28 14:16:45] [c5a66f1c8528a963efc2b82a8519f117]
F    D    [Notched Boxplots] [Q1: test the hypo...] [2008-10-28 20:21:27] [1e1d8320a8a1170c475bf6e4ce119de6]
F    D      [Notched Boxplots] [Q3 A financial co...] [2008-11-01 12:21:14] [1e1d8320a8a1170c475bf6e4ce119de6]
F    D    [Notched Boxplots] [Task 2: reuse the...] [2008-10-28 20:52:58] [1e1d8320a8a1170c475bf6e4ce119de6]
F           [Notched Boxplots] [] [2008-11-06 19:25:19] [072bb89749ef40809573ea0372b43d78]
F    D    [Notched Boxplots] [Herproducering ta...] [2008-10-29 11:37:57] [819b576fab25b35cfda70f80599828ec]
-    D    [Notched Boxplots] [reproduce Q1] [2008-10-29 11:45:56] [d2d412c7f4d35ffbf5ee5ee89db327d4]
F    D    [Notched Boxplots] [Nothched boxplots...] [2008-10-29 11:39:06] [b635de6fc42b001d22cbe6e730fec936]
F    D      [Notched Boxplots] [Taak 1, Q1] [2008-10-29 15:50:25] [deb3c14ac9e4607a6d84fc9d0e0e6cc2]
F    D      [Notched Boxplots] [Q1 notched boxplot] [2008-10-30 08:45:36] [fe7291e888d31b8c4db0b24d6c0f75c6]
F    D    [Notched Boxplots] [Hypothesis Testin...] [2008-10-29 11:51:48] [063e4b67ad7d3a8a83eccec794cd5aa7]
-           [Notched Boxplots] [Hypothesis Testin...] [2008-10-29 12:20:11] [063e4b67ad7d3a8a83eccec794cd5aa7]
F R           [Notched Boxplots] [Hypothesis Testin...] [2008-10-29 12:33:08] [063e4b67ad7d3a8a83eccec794cd5aa7]
-    D    [Notched Boxplots] [hypothesis testin...] [2008-10-29 11:51:25] [a18c43c8b63fa6800a53bb187b9ddd45]
F    D    [Notched Boxplots] [hypothesis testin...] [2008-10-29 11:51:25] [631938996a408f8d8cf3d9850ca0cd03]
F R         [Notched Boxplots] [hypothesis testin...] [2008-10-29 12:19:42] [631938996a408f8d8cf3d9850ca0cd03]
F    D    [Notched Boxplots] [Q1 notched boxplot] [2008-10-29 13:04:27] [7173087adebe3e3a714c80ea2417b3eb]
F R PD      [Notched Boxplots] [taak 2 notched bo...] [2008-10-29 14:38:58] [7173087adebe3e3a714c80ea2417b3eb]
F R           [Notched Boxplots] [Task 3 notched bo...] [2008-10-29 14:51:53] [7173087adebe3e3a714c80ea2417b3eb]
F   P           [Notched Boxplots] [task 3 ] [2008-11-03 17:22:27] [e43247bc0ab243a5af99ac7f55ba0b41]
F   P         [Notched Boxplots] [task 2] [2008-11-03 17:21:02] [e43247bc0ab243a5af99ac7f55ba0b41]
- RMPD        [Star Plot] [Starplot: Auto ca...] [2008-11-11 23:56:07] [944cfe91fab3d898afdbc7f6b8914047]
F           [Notched Boxplots] [q1] [2008-11-03 17:13:13] [e43247bc0ab243a5af99ac7f55ba0b41]
F R  D    [Notched Boxplots] [] [2008-10-29 13:33:23] [8e4e5f204c24e6d05647858dae308d17]
-    D    [Notched Boxplots] [Mediaan kledij < ...] [2008-10-29 13:49:59] [495cd80c1a9baafb03c09cd9ab8d8fb5]
F    D    [Notched Boxplots] [Mediaan kledij < ...] [2008-10-29 13:57:22] [495cd80c1a9baafb03c09cd9ab8d8fb5]
F   PD      [Notched Boxplots] [Mediaan afzetprij...] [2008-10-29 15:39:02] [495cd80c1a9baafb03c09cd9ab8d8fb5]
F   PD      [Notched Boxplots] [Mediaan investeri...] [2008-10-29 15:49:49] [495cd80c1a9baafb03c09cd9ab8d8fb5]
F    D        [Notched Boxplots] [Logaritmen mediaa...] [2008-10-29 16:49:14] [495cd80c1a9baafb03c09cd9ab8d8fb5]
F R  D    [Notched Boxplots] [Notched Boxplots] [2008-10-29 16:25:40] [b518240a1c80d4f939bf8b3e34f77cec]
- R         [Notched Boxplots] [Q3] [2008-10-29 17:55:00] [b518240a1c80d4f939bf8b3e34f77cec]

[Truncated]
Feedback Forum
2008-11-07 13:01:40 [Siem Van Opstal] [reply] 
we kunnen stellen dat de mediaan van de totale productie significant hoger is dan die van kleding productie, het is dus niet aan het toeval te wijten. We kunnen duidelijk waarnemen dat de mediaan van kleding productie niet binnen de notches van totale productie valt. die notches geven het 95% betrouwbaarheidsinterval aan en als de mediaan van de kleding prodcutie daar tussen had gelegen, zou het verschil aan het toeval te wijten zijn. Het verschil in spreiding heeft hier niets mee te maken.
  2008-11-11 11:47:23 [Bernard Femont] [reply] 
DIT IS INDERDAAD DE LINK VAN DE STUDENT VAN VORIG JAAR, ALS JE ONDER DE DE GRAFIEK KIJKT KAN JE ZIEN DAT ER OOK EEN NIEUWE LINK IS AANGEMAAKT!!!!!!!!
2008-11-10 10:17:50 [Kevin Neelen] [reply] 
De studente heeft hier gewerkt met de berekening van de oude student. Het is beter zelf even een computation te maken om die ganse lijst met namen niet te krijgen. Daarnaast is dit een foute link aangezien hier enkel mediaan van totale en kledingproductie gegevevn wordt (en niet de vier tijdreeksen waarbij duidelijk te merken is dat de mediaan van de investeringen het laagste ligt van de 4 tijdreeksen!).
  2008-11-11 11:47:14 [Bernard Femont] [reply] 
DIT IS INDERDAAD DE LINK VAN DE STUDENT VAN VORIG JAAR, ALS JE ONDER DE DE GRAFIEK KIJKT KAN JE ZIEN DAT ER OOK EEN NIEUWE LINK IS AANGEMAAKT!!!!!!!!
2008-11-10 11:22:19 [a7e076854c32462fd499d2de3f6d4e86] [reply] 
Ik ga volledig akkoord met bovenstaande opmerkingen.
  2008-11-11 11:47:56 [Bernard Femont] [reply] 
DIT IS INDERDAAD DE LINK VAN DE STUDENT VAN VORIG JAAR, ALS JE ONDER DE DE GRAFIEK KIJKT KAN JE ZIEN DAT ER OOK EEN NIEUWE LINK IS AANGEMAAKT!!!!!!!!
2008-11-11 10:30:24 [Jeroen Michel] [reply] 
Jammer dat hier sprake is van plagiaat. Het is wel degelijk de bedoeling dat je werkt met eigen berekeningen en de bekomen resultaten analyseert.

Hieronder vind je een link met een correcte uitwerking met bijgevoegde feedback en analyses:
http://www.freestatistics.org/blog/date/2008/Nov/01/t1225536479vux905sdkgrchkm.htm
  2008-11-11 11:47:04 [Bernard Femont] [reply] 
DIT IS INDERDAAD DE LINK VAN DE STUDENT VAN VORIG JAAR, ALS JE ONDER DE DE GRAFIEK KIJKT KAN JE ZIEN DAT ER OOK EEN NIEUWE LINK IS AANGEMAAKT!!!!!!!!
2008-11-11 11:39:00 [Bernard Femont] [reply] 
Q1: Een belangrijke vraag die we ons bij het vergelijken van de 2 variabelen moeten stellen is of het verschil tussen de twee significant is. We kunnen dit visueel bepalen. Door te kijken dat de notched boxplots elkaar niet raken als we deze op 1 (verticale) lijn plaatsen. Hier is dit niet het geval. Het is dus NIET toevallig dat de mediaan van totale productie groter is dan die van kleding.
2008-11-11 11:46:50 [Bernard Femont] [reply] 
DIT IS INDERDAAD DE LINK VAN DE STUDENT VAN VORIG JAAR, ALS JE ONDER DE DE GRAFIEK KIJKT KAN JE ZIEN DAT ER OOK EEN NIEUWE LINK IS AANGEMAAKT!!!!!!!!
2008-11-11 12:00:43 [Sanne Kerckhofs] [reply] 
In de vraag werd vermeld : 'reuse the student's computation of Q1 to test the following hypothesis'. Daarom heeft de student waarschijnlijk deze link terug gebruikt. Aan de hand van deze resultaten kan er geen antwoord worden geformuleerd op de vraag. Daarom moest de student ook nog een nieuwe link aanmaken. De correcte link hiervoor is http://www.freestatistics.org/blog/index.php?v=date/2008/Nov/11/t1226404432v8eo4353z1f2gsv.htm (de student heeft deze in haar werk niet vermeld, enkel de tabel hiervan).
Hieruit kan je afleiden dat de investeringen duidelijk het meest verminderd zijn sinds maart 2001. In de tabel kan je dan ook aflezen dat de mediaan voor investeringen duidelijk lager ligt dan de rest. Wanneer we dan kijken naar de bounds waartussen de mediaan ligt, zien we dat het betrouwbaarheidinterval van de investeringen niet in de betrouwbaarheidsintervallen van de anderen ligt.
2008-11-11 21:36:49 [Steven Vanhooreweghe] [reply] 
Het had beter geweest om het zelf te berekenen. In de interpretatie wordt ook gezegd dat 'De productie van kleding ligt duidelijk lager dan de totale productie omdat de inkepingen elkaar niet overlappen'. De productie ligt lager omdat de mediaan lager ligt. Het feit dat de inkepingen elkaar niet overlappen duidt erop dat dit niet toevallig is.

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

[TABLE]
[ROW][C]Summary of compuational 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=1838&T=0

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

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

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






Boxplot Notches
Variablelower boundmedianupper bound
total99.717476951119101.7103.682523048881
clothing84.568973351031387.390.0310266489687

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=1838&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
total99.717476951119101.7103.682523048881
clothing84.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')