if (FALSE) {
# Example with Anderson et al. 2010 data
fit <- RoBMA(r = Anderson2010$r, n = Anderson2010$n)
is.RoBMA(fit) # TRUE
is.BiBMA(fit) # FALSE
# Example with regression
fit_reg <- RoBMA.reg(r ~ 1, data = Anderson2010)
is.RoBMA.reg(fit_reg) # TRUE
is.RoBMA(fit_reg) # TRUE (inherits from RoBMA)
}
Run the code above in your browser using DataLab