trunc <- function(x) ifelse(x<0,ceiling(x),floor(x))
