R/no_scientific.R

In deponent-verb/popgen.stats: Popgen summary statistics calculator

#' no_scientific function
#'
#' @param x some numeric scalar
#'
#' @return the number x as a character vector without scientific notation
#' @export
#'
#' @examples
#' change 1e6 to 1000000
#' num<-no_scientific(1e6)
#'
no_scientific<-function(x){
  num=format(x,scientific = F, trim = T)
  return (num)
}