fix typo in elpd vignette

jgabry · jgabry · commit 2e08a1563cc7 · 2020-12-01T16:18:11.000-07:00
diff --git a/vignettes/elpd.Rmd b/vignettes/elpd.Rmd
@@ -191,7 +191,7 @@ for(k in 1:10){
                    )
   fit <- sampling(stanmodel, data = data_train, seed = seed, refresh = 0)
   gen_test <- gqs(stanmodel, draws = as.matrix(fit), data= data_test)
-  log_pd[, roaches$fold == k] <- extract_log_lik(gen_test)
+  log_pd_kfold[, roaches$fold == k] <- extract_log_lik(gen_test)
 }
 ```
 

Original file line number	Diff line number	Diff line change
`@@ -191,7 +191,7 @@ for(k in 1:10){`
`191`	`191`	`)`
`192`	`192`	`fit <- sampling(stanmodel, data = data_train, seed = seed, refresh = 0)`
`193`	`193`	`gen_test <- gqs(stanmodel, draws = as.matrix(fit), data= data_test)`
`194`		`- log_pd[, roaches$fold == k] <- extract_log_lik(gen_test)`
	`194`	`+ log_pd_kfold[, roaches$fold == k] <- extract_log_lik(gen_test)`
`195`	`195`	`}`
`196`	`196`	```
`197`	`197`