# \donttest{
a <- phichoice_sp(formula=yo3~xmaxtemp+xwdsp+xrh, data=nyspatial,
coordtype="utm", coords=4:5,
phis=seq(from=0.1, to=1, by=0.4), scale.transform="NONE",
s=c(8,11,12,14,18,21,24,28), N=20, burn.in=10, verbose=TRUE)
# }
Run the code above in your browser using DataLab