# fields, Tools for spatial data # Copyright 2004-2007, Institute for Mathematics Applied Geosciences # University Corporation for Atmospheric Research # Licensed under the GPL -- www.gpl.org/licenses/gpl.html "ceiling2" <- function (m) { if (m < 1) return(NA) M <- 1 while (M < m) { M <- M * 2 } M }