Update vis.R

Fixed a data problem