# NOT RUN {
data(golub, package = "supc")
golub.supc <- supc1(golub, rp = 0.0005, t = "dynamic", implementation = "R")
table(golub.supc$size)
plot(golub.supc, type = "heatmap", major.size = 10)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab