没注意那个。那就这样吧

大侠，有劳你的回复，还是有点小问题，新加的观测里面，event要求等于0的，可是代码生成的event=1

我的代码
dat<-read.csv("training.csv",header=T)
tt <- dat$time
dat2 <- dat[rep(1:nrow(dat), tt), ]
time2 <- NULL
for (i in 1:length(tt)) time2 <- c(time2, 1:tt)
dat2$time <- time2
dat2$event <- 0
dat2$event[cumsum(tt)] <- dat$event
write.csv(dat2,file="result.csv")
> dat2$time <- time2
Error in `$<-.data.frame`(`*tmp*`, "time", value = c(1L, 2L, 3L, 4L, 5L,  :
  replacement has 3059 rows, data has 2929)
这一步提示错误，不知如何？