# NOT RUN {
data("blackcap")
# a 'dist' object can be used to specify a corrMatrix:
MLdistMat <- MaternCorr(proxy::dist(blackcap[,c("latitude","longitude")]),
nu=0.6285603,rho=0.0544659) # a 'dist' object!
blackcap$name <- as.factor(rownames(blackcap))
HLCor(migStatus ~ means + corrMatrix(1|name), data=blackcap,
corrMatrix=MLdistMat, HLmethod="ML")
#### Same result by different input and algorithm:
m <- as.matrix(MLdistMat) ## leaves 0 on the diagonal!
diag(m) <- 1 ## so that m is true correlation matrix
prec_mat <- solve(m) ## precision factor matrix
HLCor(migStatus ~ means + corrMatrix(1|name), data=blackcap,
covStruc=list(precision=prec_mat), HLmethod="ML")
# }
Run the code above in your browser using DataLab