Question

I am trying to add additional years to my panel data. Just wondering if you guys have any ideas of quick way of doing it. Keep in mind my real data is T=6, i=4000.

# Here is my input
data = data.frame(time=c(30,40,50,30,40,50,30,40,50), 
                  id=c(1,1,1,2,2,2,3,3,3), 
                  d=c(1,4,7,8,14,2,41,11,61))
# declare panel data individ and time
pd = pdata.frame(data, c("id","time"), drop.index=FALSE)

#this is what I want out... 
data.out = data.frame(time=c(30,40,50,60,30,40,50,60,30,40,50,60), 
                      id=c(1,1,1,1,2,2,2,2,3,3,3,3), 
                      d=c(1,4,7,8,9,14,2,41,50,11,61,70))
# declare panel data individ and time
pd.data.out = pdata.frame(data.out, c("id","time"), drop.index=FALSE)    

Answer 1

Got it… just create new time and id data.frame and merge into it.

time = rep(c(unique(as.numeric(as.character(pd$time))),max(as.numeric(as.character(pd$time)))+10), length(unique(pd$id)))
id   = rep( unique(pd$id), each=max(as.numeric(as.character(pd$id)))+1)
data2 = data.frame(time, id)

data.out = merge(data2, pd, all.x=T)
data.out = data.out[with(data.out, order(id,time) ), ]