"dolphins.gml file not found in the package"
#minSup= 0.06 ; minConf= 0.5 ; minLen= 2 ; maxLen= 13
"Execution Time of Steps in Dolphins Network Analysis"

test_that("Karate Club Network Analysis", {
dataset_path <- system.file("extdata", "karate.gml", package = "arlclustering")
stop("karate.gml file not found in the package")
#g <- arlc_get_network_dataset(dataset_path, "Karate Club Network"),
g <- arlc_get_network_dataset(dataset_path, "Karate Club"),
supportRange = seq(0.1, 0.2, by = 0.1),  #minSup= 0.1 ; minConf= 0.5 ; minLen= 2 ; maxLen= 18
labs(title = "Execution Time of Steps in Karate Club Network Analysis",

"karate.gml file not found in the package"
#minSup= 0.1 ; minConf= 0.5 ; minLen= 2 ; maxLen= 18
"Execution Time of Steps in Karate Club Network Analysis"

test_that("Les Miserables Network Analysis", {
dataset_path <- system.file("extdata", "lesmiserables.gml", package = "arlclustering")
stop("lesmiserables.gml file not found in the package")
supportRange = seq(0.04, 0.06, by = 0.01),  #minSup= 0.06 ; minConf= 0.5 ; minLen= 2 ; maxLen= 13
labs(title = "Execution Time of Steps in LesMiserables Network Analysis",

"lesmiserables.gml file not found in the package"
"Execution Time of Steps in LesMiserables Network Analysis"

test_that("Word Adjacency Network Analysis", {
dataset_path <- system.file("extdata", "word_adjacencies.gml", package = "arlclustering")
stop("word_adjacencies.gml file not found in the package")
g <- arlc_get_network_dataset(dataset_path, "Word Adjacencies"),
labs(title = "Execution Time of Steps in Word Adjacencies Network Analysis",

"word_adjacencies.gml file not found in the package"
"Execution Time of Steps in Word Adjacencies Network Analysis"