Update vis.R

Added prog to cumugram to add