## simulate small example
set.seed(123)
x <- runif(1000)
y <- rnorm(mean = 2 + 3 * x, # effect on mu
sd = exp( 1 - 1 * x ), # effect on sigma
n = 1000)
## boosting
glmss <- glmboostLSS(y ~ x, families = as.families("NO"))
## the same:
if (require("gamlss.dist")) {
glmss <- glmboostLSS(y ~ x, families = as.families(NO))
glmss <- glmboostLSS(y ~ x, families = as.families(NO()))
}
coef(glmss, off2int = TRUE)
## compare to gamlss
library(gamlss)
glmss2 <- gamlss(y ~ x, sigma.formula = ~x, family = "NO")
coef(glmss2)
glmss2$sigma.coefRun the code above in your browser using DataLab