final

final R script with comments and working functions