R-Studio Part-28.2 Script in R-Studio