# \donttest{
# Create example data
data <- data.frame(x = runif(100), y = runif(100),
signal1 = rnorm(100), signal2 = rnorm(100))
# Initialize SGWT object (no need to run runSpecGraph)
SG <- initSGWT(data, signals = c("signal1", "signal2"))
# Check k-band limited property
result <- checkKband(SG, signals = c("signal1", "signal2"), k = 30)
if (result$is_kband_limited) {
cat("All signals are k-band limited")
}
# }
Run the code above in your browser using DataLab