Error in `value[[3L]](cond)`: Error in reading GML file: D:/RCompile/CRANincoming/R-devel/lib/arlclustering/extdata/facebook.gml
At vendor/cigraph/src/io/gml.c:454 : Parse error in GML file, line 3 (syntax error, unexpected keyword, expecting string or number or [), Parse error

dataset_path <- system.file("extdata", "facebook.gml", package = "arlclustering")
stop("facebook.gml file not found in the package")
# Ensure the dataset is loaded correctly
timings[["Get Apriori Thresholds"]] <- microbenchmark(
if (!is.finite(maxLenRules) || maxLenRules > 5*length(transactions)) {
paste0("Invalid maxLenRules: must be finite and > minLenRules ")
timings[["Generate Gross Rules"]] <- microbenchmark(
timings[["Filter gross from redundant rules"]] <- microbenchmark(
timings[["Filter redundant from non-significant rules"]] <- microbenchmark(
timings[["Clean Final Rules"]] <- microbenchmark(
# Combine timings into a data frame for plotting
timing_data <- do.call(rbind, lapply(names(timings), function(name) {
Time = summary(timings[[name]])$mean / 1e6  # Convert to milliseconds
ggplot(timing_data, aes(x = Step, y = Time)) +
labs(title = "Execution Time of Steps in Facebook Network Analysis",
theme(axis.text.x = element_text(angle = 45, hjust = 1))

"facebook.gml file not found in the package"
"Invalid maxLenRules: must be finite and > minLenRules "
"Filter redundant from non-significant rules"
"Execution Time of Steps in Facebook Network Analysis"