power.grouped(n = NULL, X = NULL, m = 20, theta = c(0, 1, 0.7),
sigma = 1, type.power = "marginal", type.lik = "approximate",
gr.mech = "equispaced", dist.t = data.frame("bernoulli", 0.5, 1),
dist.x = data.frame("normal", 0, 1), power. = 0.7, limits = c(10,1000))
# to get an initial search area using the approximate likelihood
power.grouped(n = NULL, X = NULL, m = 20, theta = c(0, 1, 0.7),
sigma = 1, type.power = "marginal", MC.iter = 20, gr.mech = "equispaced",
dist.t = data.frame("bernoulli", 0.5, 1), dist.x = data.frame("normal", 0, 1),
power. = 0.7, limits = c(10,50))
# redefine the search area and use the original likelihood
power.grouped(n = 20, X = NULL, m = 20, theta = c(0, 1, 0.7),
sigma = 1, type.power = "marginal", gr.mech = "equispaced",
dist.t = data.frame("bernoulli", 0.5, 1),
dist.x = data.frame("normal", 0, 1), power. = NULL)
Run the code above in your browser using DataLab