tdh_glmnetmod.R

library(shellpipes)
library(glmnetsurv)
library(splines)

loadEnvironments()

lam <- glmnetcv_mod$lambda.min
lams <- glmnetcv_mod$lambdas.optimal
alp <- glmnetcv_mod$alpha.optimal
glmnet_mod <- glmnetsurv(mod_form
	, data=train_df
	, lambda=lams
	, s=lam
	, alpha=alp
)
print(glmnet_mod)
plot(glmnet_mod, xvar="lambda", label=TRUE)

saveVars(train_df
	, test_df
	, mod_form
	, glmnet_mod
)
CYGUBICKO/glmnetpostsurv documentation built on Sept. 1, 2022, 7:26 p.m.