imach/src/simulation.R - diff

Return to simulation.R CVS log

Up to [Local Repository] / imach / src

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)