# NOT RUN {
dummy <- owda[Time <= 1600] #toy example
inp_som <- sominp(dummy)
my_som <- somspa(inp_som, rlen = 100, grid = somgrid(3, 3, "hexagonal"))
my_regions <- somregs(my_som, nregions = 6)
cnet(my_regions, n = 5, thres = 0.2)
# }
# NOT RUN {
inp_som <- sominp(owda)
my_som <- somspa(inp_som, rlen = 1000, grid = somgrid(6, 6, "hexagonal"))
my_regions <- somregs(my_som, nregions = 15)
cnet(my_regions, n = 12, thres = 0.3)
# }
Run the code above in your browser using DataLab