Build LTZ Prior Matrices for Chosen Instruments
Examples
set.seed(9)
d <- data.frame(y = rnorm(60), x = rnorm(60), z = rnorm(60))
sp_prior_ltz(y ~ x | z, d, inst_vary = "z", sd = 0.1)
#> $mu
#> [1] 0 0
#>
#> $omega
#> [,1] [,2]
#> [1,] 0 0.00
#> [2,] 0 0.01
#>
#> $inst_names
#> [1] "(Intercept)" "z"
#>