## Not run:
# library(intubate)
# library(magrittr)
# library(psychotools)
#
#
# ## ntbt_anchor: Anchor Methods for the Detection of Uniform DIF the Rasch Model
# data("VerbalAggression", package = "psychotools")
#
# ## Original function to interface
# anchor(resp2[, 1:12] ~ gender, data = VerbalAggression,
# class = "forward", select = "MTT", range = c(0.05, 1))
#
# ## The interface puts data as first parameter
# ntbt_anchor(VerbalAggression, resp2[, 1:12] ~ gender,
# class = "forward", select = "MTT", range = c(0.05, 1))
#
# ## so it can be used easily in a pipeline.
# VerbalAggression %>%
# ntbt_anchor(resp2[, 1:12] ~ gender,
# class = "forward", select = "MTT", range = c(0.05, 1))
#
#
# ## ntbt_anchortest: Anchor methods for the detection of uniform DIF the Rasch model
#
# ## Original function to interface
# anchortest(resp2[, 1:12] ~ gender, data = VerbalAggression,
# class = "forward", select = "MTT", range = c(0.05, 1))
#
# ## The interface puts data as first parameter
# ntbt_anchortest(VerbalAggression, resp2[, 1:12] ~ gender,
# class = "forward", select = "MTT", range = c(0.05, 1))
#
# ## so it can be used easily in a pipeline.
# VerbalAggression %>%
# ntbt_anchortest(resp2[, 1:12] ~ gender,
# class = "forward", select = "MTT", range = c(0.05, 1))
# ## End(Not run)
Run the code above in your browser using DataLab