Update blah.R

plot