Multiply Each Element Of Vector In R