# \donttest{
data(micro.censure, package = "bigPLScox")
surv_data <- stats::na.omit(
micro.censure[, c("survyear", "DC", "sexe", "Agediag")]
)
scaled <- bigscale(
survival::Surv(survyear, DC) ~ .,
data = surv_data,
norm.method = "standardize",
batch.size = 16
)
datapath <- tempfile(fileext = ".csv")
utils::write.csv(surv_data, datapath, row.names = FALSE)
continued <- partialbigSurvSGDv0(
name.col = c("Agediag", "sexe"),
datapath = datapath,
ncores = 1,
resBigscale = scaled,
bigmemory.flag = FALSE,
parallel.flag = FALSE,
inf.mth = "none"
)
# }
Run the code above in your browser using DataLab