安装补充包
- conda activate ggsurvplot
- conda install -c conda-forge r-catools -y
划分训练集和验证集
library("caTools")
dat <- readRDS('../data/dat.rds')
set.seed(123)
split = sample.split(substr(rownames(dat),1,2),SplitRatio = .8)
train_data = subset(dat, split == TRUE)
test_data = subset(dat, split == FALSE)
Comments NOTHING