added flu R script