# Simulate data
## Sample size
n <- 200
## Regressors
Z1 <- runif(n, -1, 1)
Z2 <- runif(n, -1, 1)
Z3 <- runif(n, -1, 1)
Z4 <- runif(n, -1, 1)
X <- runif(n, -1, 1)
## Error term
U <- rnorm(n, 0, 0.5)
## Outcome
Y <- X/sqrt(n) + U
# Run a GLM
LM <- glm(Y ~ X + Z1 + Z2 + Z3 + Z4)
# Compute JAB for "X" based on the regression results
JAB(LM, "X")
# Compute JAB using the minimum prior
JAB(LM, "X", method = "min")
Run the code above in your browser using DataLab