# NOT RUN {
a <- matrix(c(1,1,1,1,3,3,
2,2,2,1,2,3,
3,1,1,2,3,1,
3,3,2,2,1,1,
1,1,1,3,3,2,
3,3,3,2,2,3), nrow = 6, byrow = TRUE)
a <- array(c(a,a), dim = c(6,6,2))
test_sam <- new(Class = "SAM",
raw_sam = a,
substances = a,
clusters = a)
smooth_sam(test_sam, nclusters = 3, window = 3)
# }
Run the code above in your browser using DataLab