reducing full data sample size for static MSMs example

osofr · osofr · commit 4e876097cbc1 · 2015-06-11T18:19:37.000-07:00
diff --git a/vignettes/simcausal_vignette.Rnw b/vignettes/simcausal_vignette.Rnw
@@ -2064,7 +2064,7 @@ model above. To evaluate the target parameters $\alpha_{j}$ above, for $j=0,...,
 $17$ static interventions of interest as follows:
 
 <<message=FALSE, results='hide', cache=cache_opt>>=
-  Xts <- sim(Dstat, actions = names(A(Dstat)), n = 10000, rndseed = 123)
+  Xts <- sim(Dstat, actions = names(A(Dstat)), n = 1000, rndseed = 123)
 @
 
 Second, we define the target parameters and estimate them using the full data just simulated as follows:

Original file line number	Diff line number	Diff line change
`@@ -2064,7 +2064,7 @@ model above. To evaluate the target parameters $\alpha_{j}$ above, for $j=0,...,`
`2064`	`2064`	`$17$ static interventions of interest as follows:`
`2065`	`2065`
`2066`	`2066`	`<<message=FALSE, results='hide', cache=cache_opt>>=`
`2067`		`- Xts <- sim(Dstat, actions = names(A(Dstat)), n = 10000, rndseed = 123)`
	`2067`	`+ Xts <- sim(Dstat, actions = names(A(Dstat)), n = 1000, rndseed = 123)`
`2068`	`2068`	`@`
`2069`	`2069`
`2070`	`2070`	`Second, we define the target parameters and estimate them using the full data just simulated as follows:`