# \donttest{
dummy <- owda[Time <= 1600]
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)# }
Run the code above in your browser using DataLab