theta = 20
alpha = 0.1
initParams <- c(theta, alpha)
maxLikelihood.Guilds.Conditional(initParams,
model = "D0",
sadx = 1:20,
sady = 1:20,
verbose = TRUE)
Run the code above in your browser using DataLab