version 1.2, 2023/07/19 15:21:39
|
version 1.3, 2023/07/20 08:40:31
|
Line 91 popage65110in1998<- runif(samplesize, mi
|
Line 91 popage65110in1998<- runif(samplesize, mi
|
#gender |
#gender |
ragender <- rbinom(n=samplesize, size=1, prob=0.56) |
ragender <- rbinom(n=samplesize, size=1, prob=0.56) |
|
|
r98iwmid <- 1998 + monthinterview/12 |
r98iwmid <- 1998 + (monthinterview-1)/12 |
yrinterview1 <- floor(r98iwmid) |
yrinterview1 <- floor(r98iwmid) |
#monthinw1 <- floor((monthinterview - floor(monthinterview))*12)+1 |
#monthinw1 <- floor((monthinterview - floor(monthinterview))*12)+1 |
monthinw1 <- floor(monthinterview) |
monthinw1 <- floor(monthinterview) |