##
# input for random-walk Metropolis within Gibbs
# sampling for phi parameter
spatial.decay<-spT.decay(type="MH", tuning=0.08)
# input for discrete sampling of phi parameter
spatial.decay<-spT.decay(type="DISCRETE",
limit=c(0.01,0.02),segments=5)
# input for spatial decay if FIXED is used
spatial.decay<-spT.decay(type="FIXED", value=0.01)
##
Run the code above in your browser using DataLab