# NOT RUN {
## the result from fsglmm, data to be predicted, and the coordinates for prediction is required.
# }
# NOT RUN {
result <- fsglmm(Y~-1+X1+X2, kappa=2.5, inits = startinit, data = data,coords = coords,
family = "binomial", ntrial = 1, offset = NA,method.optim = "CG",method.integrate = "NR",rank = 50)
pred.sglmm(fit.sglmm=result,data=X.pred,)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab