scripts/score/R/test.R

# Test of R scripting
# A numeric array 'val' is initialized prior to this being run
debug <- FALSE
if(debug) {
  cat("val = \n")
  cat(str(val))
}

val <- rev(val)

if(debug) {
  cat("new val = \n")
  cat(str(val))
}
return(val)