R Programing Statement Script