testing r programming