if (FALSE) {
dat <- rgp(n <- 1e3, 0.1, 2, -0.1)
np <- 10
mle <- fit.pp(dat, threshold = 0, np = np)$par
info_obs <- pp.infomat(par = mle, dat = dat, method = "obs", u = 0, np = np)
info_exp <- pp.infomat(par = mle, dat = dat, method = "exp", u = 0, np = np)
info_obs/info_exp
}
Run the code above in your browser using DataLab