Assignment1 for R Programing