Function Factor In R