# \donttest{
# Load the package
library(BioGSP)
# Run a quick demo
demo_result <- demo_sgwt()
# Generate synthetic data
set.seed(123)
n <- 100
data <- data.frame(
x = runif(n, 0, 10),
y = runif(n, 0, 10),
signal = sin(runif(n, 0, 2*pi))
)
# New workflow: Initialize -> Build Graph -> Run SGWT
SG <- initSGWT(data, signals = "signal", J = 4, kernel_type = "heat")
SG <- runSpecGraph(SG, k = 8)
SG <- runSGWT(SG)
# Analyze results
energy_analysis <- sgwt_energy_analysis(SG)
print(energy_analysis)
# }
Run the code above in your browser using DataLab