*** empty log message ***

diff --git a/src/simulation.R b/src/simulation.R
index a383f247f915da49e8995e79e347058960c410fb..68e633393a14b8e55161b7b94b47439bca103e84 100644 (file)
--- a/src/simulation.R
+++ b/src/simulation.R
@@ -91,7 +91,7 @@ popage65110in1998<- runif(samplesize, min=65, max=110)
 #gender
 ragender <- rbinom(n=samplesize, size=1, prob=0.56)
 
-r98iwmid <- 1998 + monthinterview/12
+r98iwmid <- 1998 + (monthinterview-1)/12
 yrinterview1 <- floor(r98iwmid)
 #monthinw1 <- floor((monthinterview - floor(monthinterview))*12)+1
 monthinw1 <- floor(monthinterview)