# similated data
set.seed(2018)
dataset=data.frame(
patient=1:1000,
primdiag=sample(390:398,1000,replace=TRUE),
onset=sample(seq.Date(as.Date("2015/2/1"),as.Date("2016/2/1"),"1 day"),1000,replace=TRUE),
sex=sample(c("M","F"),1000,replace=TRUE),
county=sample(c("Albany","New York"),1000,replace=TRUE))
out.data=CXover.data(data=dataset,date="onset",ID="patient")
head(out.data)
Run the code above in your browser using DataLab