modified:   createGutmap.R