data("arabidopsis")
if (spaMM.getOption("example_maxtime")>2.5) {
fitme(cbind(pos1046738,1-pos1046738)~seasonal+Matern(1|LAT+LONG),
fixed=list(rho=0.119278,nu=0.236990,lambda=8.599),
family=binomial(),method="PQL/L",data=arabidopsis)
}
## The above 'fixed' values are deduced from the following fit:
if (spaMM.getOption("example_maxtime")>46) {
SNPfit <- fitme(cbind(pos1046738,1-pos1046738)~seasonal+Matern(1|LAT+LONG),
verbose=c(TRACE=TRUE),
family=binomial(),method="PQL/L",data=arabidopsis)
summary(SNPfit) # p_v=-125.0392
}
Run the code above in your browser using DataLab