Update vis.R

Fixed prog=TRUE in cumugram