R/insertDot.R

In m-a-r-i-o/aRtistic: Finding Intermediate Mass Black Holes In Star Clusters With Machine Learning

#' insertDot function
#'
#' This function is used internally
#' @param u u

insertDot <- function(u)
{
  uu <- unlist(strsplit(u[2], split=""))
  if(length(uu) > 1)
  {
    uu <- c(uu[1], uu)
    uu[2] <- "."
  }
  uu <- paste(uu, collapse = "")
  return(as.numeric(uu))
}