programming3 of r programming