library(dplyr)
# If you want to use this feature, you need to install the 'ppsr' package.
if (!requireNamespace("ppsr", quietly = TRUE)) {
cat("If you want to use this feature, you need to install the 'ppsr' package.\n")
}
# pps type is generic ======================================
pps_generic <- pps(iris)
pps_generic
if (!is.null(pps_generic)) {
# summary pps class
mat <- summary(pps_generic)
mat
}
# pps type is target_by =====================================
##-----------------------------------------------------------
# If the target variable is a categorical variable
# Using dplyr
pps_cat <- iris %>%
target_by(Species) %>%
pps()
pps_cat
if (!is.null(pps_cat)) {
# summary pps class
tab <- summary(pps_cat)
tab
}
##-----------------------------------------------------------
# If the target variable is a numerical variable
num <- target_by(iris, Petal.Length)
pps_num <- pps(num)
pps_num
if (!is.null(pps_num)) {
# summary pps class
tab <- summary(pps_num)
tab
}
Run the code above in your browser using DataLab