Wanneer ik een herhaalde metingen analyse uitvoer in R krijg ik bij Mauchly's test alleen een "w" gerapporteerd en de bijbehorende p - waarde. Hoe kan ik ook een chi waarde gerapporteerd krijgen uit R?
Mijn script was als volgt"
longSport <- melt(SportBeperkt, id="X",measured= c("sportscore1","sportscore2", "sportscore3"))
View(longSport)
### nu gaan we de kolommen even goede namen geven
names(longSport)<-c("Participant","Sportscore", "Frequentie")
### We willen nu van SPortscore een factor maken
longSport$Sportscore <- factor(longSport$Sportscore, labels=c("sportscore1","sportscore2", "sportscore3"))
### We gaan nu contrasten definieren: eerste is sportscore 1 vergelijken met 2+3
### de tweede is om sportscore 2 en sportscore 3 te vergelijken
NiksWel <-c(-2,1,1)
Later <-c(0,-1,1)
contrasts(longSport$Sportscore) <-cbind(NiksWel,Later)
### Hier ga je de contrasten bekijken in een tabel
longSport$Sportscore
### We definieren hier de repeated measures ANOVA (pagina 569)
longSportModel <-ezANOVA(data=longSport,dv=.(Frequentie),wid=.(Participant),within=.(Sportscore),detailed=TRUE,type=3)
### We bekijken de repeated measures ANOVA. we zien bij Mauchly dat de sphericiteit is geschonden
### de lower limit voor GG is 1/(4-1) =0,33. In de output staat 0,9i bij Huntsveld dat is het dichts bij 1
### dus we gebruiken HF
### SSd is de error
longSportModel
en dit leverde dan de volgende output op:
$`ANOVA`
Effect DFn DFd SSn SSd F p p<.05 ges
1 (Intercept) 1 107 2325.38272 287.28395 866.09764 4.137149e-53 * 0.86393909
2 Sportscore 2 214 24.39506 78.93827 33.06725 3.062299e-13 * 0.06245259
$`Mauchly's Test for Sphericity`
Effect W p p<.05
2 Sportscore 0.8822516 0.001307374 *
$`Sphericity Corrections`
Effect GGe p[GG] p[GG]<.05 HFe p[HF] p[HF]<.05
2 Sportscore 0.8946557 4.2598e-12 * 0.9088698 2.985557e-12 *
>