R scripts from coursea calss