df <- data.frame(
sex = factor(c("m","f","m","f")),
height = c(180, 165, 170, 159),
age = c(25, 32, 29, 28)
)
types <- c("nominal", "metric", "metric")
D <- buttler_fickel_dist(df, types)
hc <- hclust(D)
cl <- cutree(hc, k = 2)
bf_R2(D, cl)
Run the code above in your browser using DataLab