# Generate a sample dataframe
set.seed(123)
df <- data.frame(x = sample(1:100, 500, replace = TRUE),
y = sample(1:100, 500, replace = TRUE),
i = sample(0:1, 500, replace = TRUE, prob = c(0.7, 0.3)))
# Perform the AFSD
result <- AFSD(df)
Run the code above in your browser using DataLab