Advertisement
Guest User

Untitled

a guest
Apr 30th, 2017
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. #make a multivariate vector with known correlation
  2. sigma_mat <- matrix(c(1,.3, 0.2,
  3. 0.3, 1, 0.4,
  4. 0.2, 0.4, 1), nrow=3)
  5. z <- rmvnorm(1, c(0,0, 0), sigma_mat)
  6. z_2 <- z[2]
  7. z[2] <- NA
  8.  
  9. #model
  10. mod <- alist(
  11. z <- dmvnorm(0, sigma)
  12. )
  13.  
  14. #fit - doesn't work...
  15. fit <- map2stan(mod,
  16. data=list(z=z, sigma=sigma),
  17. start=list(z=c(z[1], 0, z[2])))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement