demo_data <- data.frame(subj_id=c(4.1,4.2,5.1,6.1),
pat_id=c(14872,14872,24308,37143),
gender=c(1,1,0,1),
weight=c(34,42,28,63),
height=c(142,148,120,167))
conc_data <- data.frame(subj_id=rep((4:6)+0.1,each=5),
event=rep(1:5,times=3),
conc.level=15*exp(-1*rep(1:5,times=3))+rnorm(15,0,0.1))
data <- list(demo_data, conc_data)
idcols <- list(c('subj_id', 'pat_id'), 'subj_id')
idCrosswalk(data, idcols, visit.id='subj_id', uniq.id='pat_id')
Run the code above in your browser using DataLab