set.seed (434534)
family <- binomial ()
nobs <- 50
nvars <- 5
beta.true <- c (1, 2, 0, 0, -1)
intercept <- TRUE
standardize <- TRUE
x <- matrix (rnorm (nvars * nobs), ncol = nvars)
x[,2] <- x[,1] + rnorm (nobs, sd = 0.1)
x[,3] <- x[,1] + rnorm (nobs, sd = 0.2)
eta.true <- drop (x %*% beta.true)
mu.true <- family$linkinv (eta.true)
vec1 <- 1 : nobs
y <- sapply (mu.true, function (vec1) {rbinom (1, 1, vec1)})
pdf ("fusedlasso_lambda1.pdf", width = 6, height = 6)
# here lambda1 'lambda1' is getting varied:
plot.lqa (y = y, x = x, family = binomial (), penalty.family = fused.lasso,
offset.values = c (NA, 0.2), add.MLE = FALSE, really.plot = TRUE)
dev.off ()
Run the code above in your browser using DataLab