library(splines)
library(survival)
library(pensim)
set.seed(1)
x<- create.data(nvars=c(15,5),
                 cors=c(0,0.8),
                 associations=c(0,2),
                 firstonly=c(TRUE,TRUE),
                 nsamples=50,
                 censoring=c(2,10),
                 response="timetoevent")
将x过程重复100次，以生成100个数据集，如果手动生成的话太费劲了，哪位高手帮帮忙，不胜感激。