# \donttest{
# Load example data
data(XOR_data)
# Run XOR detection
results <- detect_xor(data = XOR_data, class_col = "class")
# View summary of detected patterns
print(results$results_df["xor_shape_detected"])
# Generate visualizations
spaghetti_plot <- generate_spaghetti_plot_from_results(
results = results,
data = XOR_data,
class_col = "class"
)
print(spaghetti_plot)
xy_plot <- generate_xy_plot_from_results(
results = results,
data = XOR_data,
class_col = "class"
)
print(xy_plot)
# Generate console report (doesn't write files)
generate_xor_reportConsole(results, XOR_data, "class", show_plots = FALSE)
# View detailed results for detected pairs
detected_pairs <- results$results_df[results$results_df$xor_shape_detected == TRUE, ]
print(detected_pairs)
# }
Run the code above in your browser using DataLab