Bayesian मॉडल के लिए R-squared

# Save the variance of residulas
ss_res <- ___(___(stan_model))

# Save the variance of fitted values
ss_fit <- ___(___(stan_model))

# Calculate the R-squared
1 - (___ / (___ + ___))