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_meanplot.wasp
Title produced by softwareMean Plot
Date of computationThu, 06 Nov 2008 14:53: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/2008/Nov/06/t1226008625rtd3j1pe4rsd2un.htm/, Retrieved Sun, 19 May 2024 08:00:53 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=22428, Retrieved Sun, 19 May 2024 08:00:53 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Mean Plot] [workshop 3] [2007-10-26 12:14:28] [e9ffc5de6f8a7be62f22b142b5b6b1a8]
F    D    [Mean Plot] [] [2008-11-06 21:53:45] [905ab864170ee411eb174f5362414698] [Current]
-           [Mean Plot] [Mean Plot] [2008-11-07 08:18:01] [17bd4671b42d569d890f7246b2ee4ecc]
Feedback Forum
2008-11-11 13:22:18 [Liese Drijkoningen] [reply] 
De student heeft hier een goed antwoord geformuleerd, maar ik zou hier nog enkele dingen aan kunnen toevoegen.
We moeten ons afvragen of de daling structureel is of aan het toeval te wijten is. Dit kunnen we nagaan door het betrouwbaarheidsinterval te besturen. We zien dat deze elkaar steeds overlappen. Dit wil zeggen dat de daling niet significant is, ze is dus aan het toeval te wijten. Tenslotte moet ik nog opmerken dat wanneer je jaar 1 en 5 met elkaar wilt vergelijken, je verder onderzoek zal moetenverrichten.
2008-11-11 13:36:32 [Liese Drijkoningen] [reply] 
De student heeft voor task 1, Q2 en Q3 dezelfde link gebruikt dus daarom zet ik hier ook mijn uitleg over vraag Q2.
Q2: Ook hier heeft de student een goed antwoord op de vraag geformuleerd. We kunnen bijvoorbeeld afleiden uit het meanplot(elk puntje stelt het gemiddelde voor van bv alle maanden maart samen) dat tussen de maanden 6 en 7 de productie sterk gestegen is. Wel moeten we ons afvragen of deze stijging significant is. Dit doen we door gebruik te maken van de notched boxplots (periodic subseries). Uit deze grafiek kunnen we afleiden dat de betrouwbaarheidsintervallen van 6 en 7 elkaar niet overlappen. Dit betekend dat de stijging significant is, ze is dus niet aan het toeval te wijten.
2008-11-11 16:11:11 [Peter Van Doninck] [reply] 
Student heeft geen echte verklaring gegeven bij de grafiek over de mean plots. Ook is er niet vermeld dat, aangezien de box-plots armen en benen hebben, het betrouwbaarheidsinterval groter wordt.
2008-11-11 16:15:13 [Peter Van Doninck] [reply] 
De student heeft gelijk als hij zegt dat de inkepingen elkaar overlappen, er dat er dus geen sprake is van een significante daling. Echter, in de les werd er gezegd door professor Van Stee dat er meer dan toeval zou zijn wanneer de gegevens verder geanalyseerd zouden worden.
2008-11-12 09:31:19 [Marie-Lien Loos] [reply] 
Je kan ook nog vermelden dat de inversteringen en de totale productie stabiel zijn gebleven.
2008-11-12 09:32:29 [Marie-Lien Loos] [reply] 
De transformatie zorgt er voor dat dat de verdeling meer richting 'normaal verdeling' zal veranderen.
2008-11-12 09:49:26 [76d4ba45ca37c54e4ca3ca97939a2cd4] [reply] 
Q2: Je hebt gelijk dat er seizoenaliteit merkbaar is. Maar je hebt niet opgemerkt dat de gegevens beginnen in de maand maart, wat maakt dat seizoen 6 niet juli is maar augustus is, en maand 10 niet oktober maar december. Als je hiermee rekening had gehouden, was het gemakkelijker om aan te tonen dat in maart, juni, september en januari een enorme stijging ten opzichte van de maand daarvoor te zien is. Deze drie eerste maanden zijn de beginmaanden van een nieuw seizoen, wat het duidelijker maakt om seizoenaliteit te kunnen verklaren. Je uitleg bij de periodic box plot is correct, op het feit na dat je met het voorgaande geen rekening hield. Wederom ben je vergeten commentaar te leveren op de conclusie van de student.
2008-11-12 09:50:46 [76d4ba45ca37c54e4ca3ca97939a2cd4] [reply] 
Q3: Je redenering is correct wanneer je zegt dat de daling niet significant is als de inkepingen elkaar niet overlappen. Maar als je het eerste en het vijfde jaar beschouwt, dan is de overlapping nog maar zeer klein, laat staan verdwenen. Hieruit kunnen we afleiden dat er toch iets aan de hand moet zijn, en dat de daling niet meer toevallig is.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
109.20
88.60
94.30
98.30
86.40
80.60
104.10
108.20
93.40
71.90
94.10
94.90
96.40
91.10
84.40
86.40
88.00
75.10
109.70
103.00
82.10
68.00
96.40
94.30
90.00
88.00
76.10
82.50
81.40
66.50
97.20
94.10
80.70
70.50
87.80
89.50
99.60
84.20
75.10
92.00
80.80
73.10
99.80
90.00
83.10
72.40
78.80
87.30
91.00
80.10
73.60
86.40
74.50
71.20
92.40
81.50
85.30
69.90
84.20
90.70
100.30

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 4 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=22428&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]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=22428&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=22428&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 time4 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 12 ;
Parameters (R input):
par1 = 12 ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
(n <- length(x))
(np <- floor(n / par1))
arr <- array(NA,dim=c(par1,np+1))
ari <- array(0,dim=par1)
j <- 0
for (i in 1:n)
{
j = j + 1
ari[j] = ari[j] + 1
arr[j,ari[j]] <- x[i]
if (j == par1) j = 0
}
ari
arr
arr.mean <- array(NA,dim=par1)
arr.median <- array(NA,dim=par1)
arr.midrange <- array(NA,dim=par1)
for (j in 1:par1)
{
arr.mean[j] <- mean(arr[j,],na.rm=TRUE)
arr.median[j] <- median(arr[j,],na.rm=TRUE)
arr.midrange[j] <- (quantile(arr[j,],0.75,na.rm=TRUE) + quantile(arr[j,],0.25,na.rm=TRUE)) / 2
}
overall.mean <- mean(x)
overall.median <- median(x)
overall.midrange <- (quantile(x,0.75) + quantile(x,0.25)) / 2
bitmap(file='plot1.png')
plot(arr.mean,type='b',ylab='mean',main='Mean Plot',xlab='Periodic Index')
mtext(paste('#blocks = ',np))
abline(overall.mean,0)
dev.off()
bitmap(file='plot2.png')
plot(arr.median,type='b',ylab='median',main='Median Plot',xlab='Periodic Index')
mtext(paste('#blocks = ',np))
abline(overall.median,0)
dev.off()
bitmap(file='plot3.png')
plot(arr.midrange,type='b',ylab='midrange',main='Midrange Plot',xlab='Periodic Index')
mtext(paste('#blocks = ',np))
abline(overall.midrange,0)
dev.off()
bitmap(file='plot4.png')
z <- data.frame(t(arr))
names(z) <- c(1:par1)
(boxplot(z,notch=TRUE,col='grey',xlab='Periodic Index',ylab='Value',main='Notched Box Plots - Periodic Subseries'))
dev.off()
bitmap(file='plot5.png')
z <- data.frame(arr)
names(z) <- c(1:np)
(boxplot(z,notch=TRUE,col='grey',xlab='Block Index',ylab='Value',main='Notched Box Plots - Sequential Blocks'))
dev.off()
bitmap(file='plot6.png')
z <- data.frame(cbind(arr.mean,arr.median,arr.midrange))
names(z) <- list('mean','median','midrange')
(boxplot(z,notch=TRUE,col='grey',ylab='Overall Central Tendency',main='Notched Box Plots'))
dev.off()