# NOT RUN {
FoxActivityGCMM<-GCMM(data=redfoxsample$Radians,
RE1=redfoxsample$SamplingPeriod, family="vonmises", autorun=FALSE,
adapt=0, sample=300, burnin=300, thin=1, n.chains=2)
HumanActivityGCMM<-GCMM(data=humanssample$Radians, RE1=humanssample$SamplingPeriod,
family="vonmises", autorun=FALSE, adapt=0, sample=300, burnin=300, thin=1, n.chains=2)
circplotmeans(models=list(FoxActivityGCMM,HumanActivityGCMM))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab