Add documentation for BenfScore

FinalCode.R

#' Benford Score function
#'
#' Facilitates finding the Benford Score of a number using Benford Law.
#' @param i First digit of a number
#' @keywords Benford law
#' @export
#' @examples
#' BenfScore()

BenfScore <- function(i){
  P <- (log10(1+(1/i)))*100
  return(P)
}