# NOT RUN {
# }
# NOT RUN {
# setup
set.seed(123)
library(metaBMA)
# creating a dataframe
(df <-
structure(
.Data = list(
study = c("1", "2", "3", "4", "5"),
estimate = c(
0.382047603321706,
0.780783111514665,
0.425607573765058,
0.558365541235078,
0.956473848429961
),
std.error = c(
0.0465576338644502,
0.0330218199731529,
0.0362834986178494,
0.0480571500648261,
0.062215818388157
)
),
row.names = c(NA, -5L),
class = c("tbl_df", "tbl", "data.frame")
))
# to get dataframe
bf_meta_random(
data = df,
k = 3,
metaBMA.args = list(iter = 500, rscale_discrete = 0.880),
output = "dataframe"
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab