if (FALSE) {
J <- 10000
theta <- 100
alpha_x <- 0.1
simul_data <- generate.Guilds(theta, alpha_x, alpha_x, J)
#initial parameters for the D0 model c(theta,alpha)
LL <- maxLikelihood.Guilds(init_vals = c(theta, alpha_x),
model = "D0",
sadx = simul_data$guildX,
sady = simul_data$guildY)
}
Run the code above in your browser using DataLab