Fitting the Bass Model in R