Update plot3.R

add comment