## Not run:
# library(intubate)
# library(magrittr)
# library(MCMCglmm)
#
#
# ## ntbt_MCMCglmm: Multivariate Generalised Linear Mixed Models
# data(PlodiaPO)
#
# ## Original function to interface
# set.seed(1)
# model <- MCMCglmm(PO ~ 1, random = ~ FSfamily, data = PlodiaPO, verbose = FALSE)
# summary(model)
#
# ## The interface puts data as first parameter
# set.seed(1)
# model <- ntbt_MCMCglmm(PlodiaPO, PO ~ 1, random = ~ FSfamily, verbose = FALSE)
# summary(model)
#
# ## so it can be used easily in a pipeline.
# set.seed(1)
# PlodiaPO %>%
# ntbt_MCMCglmm(PO ~ 1, random = ~ FSfamily, verbose = FALSE) %>%
# summary()
# ## End(Not run)
Run the code above in your browser using DataLab