data(tapir)
#It is advised to increase the number of iterations for a better fitting
z1 <- dsimpostppt(tapir, units = "radians", it = 5, ti =1, bi=0, ha = 1, hm =1)
class(z1)
length(z1$acceptancerate)
z1$acceptancerate
# \donttest{
postppt.summary(z1)
postppt.plot(z1, plot.type= "line" , ylim = c(0,0.8))
# }
Run the code above in your browser using DataLab