data(arabidopsis)
if (spaMM.getOption("example_maxtime")>15) {
HLCor(cbind(pos1046738,1-pos1046738)~seasonal+Matern(1|LAT+LONG),
ranPars=list(rho=0.1192889,nu=0.2369864,lambda=8.599),
family=binomial(),HLmethod="PQL/L",data=arabidopsis)
}
## The above ranPars are deduced from the following fit:
if (spaMM.getOption("example_maxtime")>220) {
opt <- spaMM.options("matrix_method")
# Selecting a slightly faster algorithm for this computation:
spaMM.options(matrix_method="def_sXaug_EigenDense_QRP_scaled")
SNPfit <- fitme(cbind(pos1046738,1-pos1046738)~seasonal+Matern(1|LAT+LONG),
family=binomial(),method="PQL/L",data=arabidopsis)
spaMM.options(opt)
summary(SNPfit)
}
Run the code above in your browser using DataLab