ydata = data.frame(x = runif(nn <- 1000))
ydata = transform(ydata, y = ryules(nn, rho=exp(1.5-x)))
with(ydata, table(y))
fit = vglm(y ~ x, yulesimon, ydata, trace=TRUE)
coef(fit, matrix=TRUE)
summary(fit)
Run the code above in your browser using DataLab