modified:   R/makeTermSOM.R