Create analyze.R

plot data