Update plot4.R

Test for update & commit