R/read.Stones.R

Defines functions read.Stones

read.Stones <- function(file){
  x <- readLines(file)
  x <- x[length(x)]
  x <- unlist(strsplit(x, ":"))[2]
  x <- as.numeric(x)
  return(x)
}
manabusakamoto/evoldiver documentation built on March 9, 2024, 9:56 a.m.