Now using ggplot2 & stat_function