R-test/pica-r-test.R

check <- function(x) {
  if (x > 0) {
    result <- "Positive"
  }
  else if (x < 0) {
    result <- "Negative"
  }
  else {
    result <- "Zero"
  }
  return(result)
}
vallooy/pica documentation built on Dec. 31, 2020, 9:42 a.m.