# NOT RUN {
# Load Golub & Steunenberg (2007) Data
data("GolubEUPData")
# Subset PURELY TO SPEED UP THE EXAMPLE
GolubEUPData <- GolubEUPData[1:500, ]
# Expand data
GolubEUPDataExpand <- SurvExpand(GolubEUPData, GroupVar = 'caseno',
Time = 'begin', Time2 = 'end', event = 'event')
# }
Run the code above in your browser using DataLab