if (FALSE) {
crispIris <- iris
crispIris$Sepal.Ratio <- iris$Sepal.Length / iris$Sepal.Width
crispIris$Petal.Ratio <- iris$Petal.Length / iris$Petal.Width
crispIris <- partition(crispIris, Species)
res <- dig_paired_baseline_contrasts(crispIris,
condition = where(is.logical),
xvars = Sepal.Ratio,
yvars = Petal.Ratio,
method = "t",
min_support = 0.1)
# launch the interactive explorer
explore(res, data = crispIris)
}
Run the code above in your browser using DataLab