R Progamming Assignment