Using R Assignment