Create try.R

try generate a plot online