https://github.com/cran/fields
Revision 63d588c2cc1bacede5271cbb3a51a63c422060c9 authored by Doug Nychka on 04 September 2009, 00:00:00 UTC, committed by Gabor Csardi on 04 September 2009, 00:00:00 UTC
1 parent e6e2dec
Tip revision: 63d588c2cc1bacede5271cbb3a51a63c422060c9 authored by Doug Nychka on 04 September 2009, 00:00:00 UTC
version 6.01
version 6.01
Tip revision: 63d588c
dyadic.2check.R
# 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
dyadic.2check <- function(m, n, cut.p = 2) {
# checks that n is of the form
# n=p*2^m where p <= cut.p
m2 <- as.integer(m)
n2 <- as.integer(n)
while ((n2 > cut.p) & (m2 > cut.p)) {
if ((m2%%2 != 0) | (n2%%2 != 0)) {
cat(n, "and", m, "must equal p*2^L where p is less than or equal to ",
cut.p, fill = TRUE)
return(FALSE)
}
m2 <- m2/2
n2 <- n2/2
}
return(TRUE)
}
Computing file changes ...