--- imach/src/simulation.R	2023/07/19 15:21:39	1.2
+++ imach/src/simulation.R	2023/07/20 08:40:31	1.3
@@ -1,4 +1,4 @@
-# $Id: simulation.R,v 1.2 2023/07/19 15:21:39 brouard Exp $
+# $Id: simulation.R,v 1.3 2023/07/20 08:40:31 brouard Exp $
 #  $State: Exp $
 #  
 # Simulating data for IMaCh tests
@@ -91,7 +91,7 @@ popage65110in1998<- runif(samplesize, mi
 #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)