Autre
Oefensissie 8 - Deel 2
- Établissement
- Katholieke Universiteit Leuven (KU Leuven)
Oefeningen uit oefensessie 8 deel 2 uitgewerkt
[Montrer plus]
Aperçu du contenu
1Voorbeeldexamen extra 1
P0S37A Thema’s uit de kwantitatieve methodologie
Academiejaar 2022-2023
1. Het Toledo-bestand VRAAG1.txt in de folder “Cursusdocumenten / Gegevensbestanden / Oefeningen
voorbeeldexamen extra 1” bevat 1000 observaties voor drie variabelen: ONGEVAL, VERKOOP en INTERVEN. De
1000 observaties voor de variabele ONGEVAL geven het aantal fietsongevallen per dag gedurende 1000 dagen in
België weer. De 1000 observaties voor de variabele VERKOOP geven het aantal verkochte fietsen per dag
gedurende die 1000 dagen in België weer. De variabele INTERVEN is een dichotome variabele die de waarde 0
heeft gedurende de eerste 500 dagen en de waarde 1 gedurende de laatste 500 dagen. Deze laatste variabele is
aan het bestand toegevoegd omdat er gedurende de laatste 500 dagen een grootschalige nationale educatieve
campagne liep om het aantal fietsongevallen te doen afnemen.
Veronderstel dat aan jou wordt gevraagd om het effect van die educatieve campagne te onderzoeken. Maak
gebruik van een ARIMA-interventiemodel om na te gaan of de educatieve campagne een statistisch significant
effect op het aantal fietsongevallen per dag heeft. De gegevens kunnen in R worden ingelezen met de instructie
read.table(file.choose(new=FALSE))
Beantwoord de volgende vragen:
(a) Welk ARIMA model past bij de tijdreeks van het aantal ongevallen en wat zijn de parameterschat tingen en de
standaardfouten van de parameters in dit model?
(b) Is er een statistisch significant effect van de educatieve campagne op het aantal fietsongevallen per dag als het
5% significantieniveau zou worden gehanteerd? Hoe kan je dat in de uitvoer aflezen?
(c) Gebruik samen met het ARIMA-interventiemodel bovendien een ARIMA-transfermodel om de samenhang
tussen het aantal fietsongevallen per dag en het aantal verkochte fietsen per dag te onderzoeken. Wat valt op in
de crosscorrelatie plot?
(d) Is er een statistisch significante lineaire samenhang tussen het aantal fietsongevallen per dag en het aantal
verkochte fietsen per dag als het 5% significantieniveau zou worden gehanteerd? Hoe kan je dat in de uitvoer
aflezen?
Tijdreeksanalyse
A) Welk ARIMA model past bij de tijdreeks van het aantal ongevallen en
wat zijn de parameterschattingen en de standaardfouten van de parameters in dit model?
Een ARIMA(0,0,1) model past bij de tijdreeks van het aantal fietsongevallen. De parameterschattingen zijn −0.5859
voor de moving average parameter en 995.6038 voor het intercept. De standaardfouten bedragen 0.0250 voor de
moving average parameter en 1.2738 voor het intercept.
Script
#Stap 1
>Oef1 <- read.table(file.choose(new=FALSE))
>Oef1
#Stap 2
> acf(Oef1$ONGEVAL,plot=FALSE)
, 2
> acf(Oef1$ONGEVAL)
#Stap 3
> pacf(Oef1$ONGEVAL,plot=FALSE)
> pacf(Oef1$ONGEVAL)
Het patroon in de autocorrelaties en partiële autocorrelaties is indicatief voor een moving average model, dus we
proberen het meest eenvoudige eerst:
#Stap 4
> model1 <- arima(oef1,order=c(1,0,0))
> model1
> tsdiag(model1)
Dit model lijkt meteen relatief goed bij de gegevens aan te sluiten.
, 3
Om het effect van de interventie na te gaan, moet een predictor worden toegevoegd:
#Stap 5
>Model2 <- arima(Oef1$ONGEVAL,order=c(0,0,1),xreg=Oef1$INTERVEN)
>Model2
>tsdiag(Model2)
Het model blijft goed bij de gegevens passen en dus kunnen we de volgende uitvoer gebruiken om het effect van de
interventie te toetsen
Om een transfermodel toe te voegen, bekijk je best eerst de crosscorrelaties:
#Stap 6
> ccf(Oef1$ONGEVAL,Oef1$VERKOOP,plot=FALSE)
Les avantages d'acheter des résumés chez Stuvia:
Qualité garantie par les avis des clients
Les clients de Stuvia ont évalués plus de 700 000 résumés. C'est comme ça que vous savez que vous achetez les meilleurs documents.
L’achat facile et rapide
Vous pouvez payer rapidement avec iDeal, carte de crédit ou Stuvia-crédit pour les résumés. Il n'y a pas d'adhésion nécessaire.
Focus sur l’essentiel
Vos camarades écrivent eux-mêmes les notes d’étude, c’est pourquoi les documents sont toujours fiables et à jour. Cela garantit que vous arrivez rapidement au coeur du matériel.
Foire aux questions
Qu'est-ce que j'obtiens en achetant ce document ?
Vous obtenez un PDF, disponible immédiatement après votre achat. Le document acheté est accessible à tout moment, n'importe où et indéfiniment via votre profil.
Garantie de remboursement : comment ça marche ?
Notre garantie de satisfaction garantit que vous trouverez toujours un document d'étude qui vous convient. Vous remplissez un formulaire et notre équipe du service client s'occupe du reste.
Auprès de qui est-ce que j'achète ce résumé ?
Stuvia est une place de marché. Alors, vous n'achetez donc pas ce document chez nous, mais auprès du vendeur cathoschelkens. Stuvia facilite les paiements au vendeur.
Est-ce que j'aurai un abonnement?
Non, vous n'achetez ce résumé que pour €5,49. Vous n'êtes lié à rien après votre achat.
Peut-on faire confiance à Stuvia ?
4.6 étoiles sur Google & Trustpilot (+1000 avis)
75632 résumés ont été vendus ces 30 derniers jours
Fondée en 2010, la référence pour acheter des résumés depuis déjà 14 ans