Need Research Assignment with R Script