File: Rcpp-sugar.R

package info (click to toggle)

rcpp 1.0.0-1

file content (5 lines) | stat: -rw-r--r-- 147 bytes

## ---- eval = FALSE-------------------------------------------------------
#  foo <- function(x, y) {
#      ifelse(x < y, x * x, -(y * y))
#  }