g1 <- 1
g2 <- 0
gl <- simf1gl(
n = 25,
g1 = g1,
g2 = g2,
rd = 10,
alpha = 0,
xi1 = 1/3,
xi2 = 1/3)
like_glpknown_2(
gl = gl,
alpha = 0.01,
xi1 = 0.5,
xi2 = 0.3,
g1 = g1,
g2 = g2,
log_p = TRUE)
Run the code above in your browser using DataLab