# location unknown, scale known
ldat1 = data.frame(x = runif(nn <- 500))
ldat1 = transform(ldat1, y = rlogis(nn, loc = 1+5*x, scale = 4))
fit = vglm(y ~ x, logistic1(scale = 4), ldat1, trace = TRUE, crit = "c")
coef(fit, matrix = TRUE)
# Both location and scale unknown
ldat2 = data.frame(x = runif(nn <- 2000))
ldat2 = transform(ldat2, y = rlogis(nn, loc = 1+5*x, scale = exp(0+1*x)))
fit = vglm(y ~ x, logistic2, ldat2)
coef(fit, matrix = TRUE)
vcov(fit)
summary(fit)
Run the code above in your browser using DataLab