菜鸟提问，将原有数据扩增方法？？？？？？？？

ID	Var1	time	e
1	1	3	1
2	0	5	0
处理前

ID	Var1	time	event
1	1	1	0
1	1	2	0
1	1	3	1
2	0	1	0
2	0	2	0
2	0	3	0
2	0	4	0
2	0	5	0
处理后

求数据扩增方法？？？，不知道有没有运算高效的实现方法，因为数据观测数有1000例！

没注意那个。那就这样吧

1. dat <- data.frame(ID = c(1,2), Var1 = c(1,0), time = c(3,5), event = c(1,0))
   
2. tt <- dat$time
   
3. dat2 <- dat[rep(1:nrow(dat), tt), ]
   
4. time2 <- NULL
   
5. for (i in 1:length(tt)) time2 <- c(time2, 1:tt[i])
   
6. dat2$time <- time2
   
7. dat2$event <- 0
   
8. dat2$event[cumsum(tt)] <- dat$event

复制代码

1. dat <- data.frame(ID = c(1,2), Var1 = c(1,0), time = c(3,5), event = c(1,0))
   
2. tt <- dat$time
   
3. dat2 <- dat[rep(1:nrow(dat), tt), ]
   
4. time2 <- NULL
   
5. for (i in 1:length(tt)) time2 <- c(time2, 1:tt[i])
   
6. dat2$time <- time2

复制代码

qoiqpwqr 发表于 2013-6-23 09:18

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

qoiqpwqr 发表于 2013-6-23 10:30
没注意那个。那就这样吧

我的代码
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)
这一步提示错误，不知如何？

这是不是要求ID不要有重复值？

flyloop 发表于 2013-6-23 10:46
我的代码
dat

把数据发来看看

感谢，感谢，我去重之后就OK了，

qoiqpwqr 发表于 2013-6-23 03:36
没注意那个。那就这样吧

代码还不能完全理解透，为什么要设置time2=null呢？还有后面那个循环！