swh:1:snp:3a44eb759780145deea094ac2a25c5049546a085
Tip revision: f0c4a61d2b5f089aa6457ceb4425d51c3d2a8ac7 authored by Han Lin Shang on 08 January 2012, 07:19:40 UTC
version 2.9
version 2.9
Tip revision: f0c4a61
bin2.r
bin2 = function (x, ab, nbin = c(20, 20))
{
if (missing(ab)) {
ab <- t(array(c(nicerange(x[, 1]), nicerange(x[, 2])),
c(2, 2)))
}
n <- nrow(x)
r <- .Fortran("bin2", as.double(x), as.integer(n), as.double(ab),
as.integer(nbin[1]), as.integer(nbin[2]), nc = integer(nbin[1] *
nbin[2]), nskip = integer(1), PACKAGE = "ash")
list(nc = matrix(r$nc, nbin[1], nbin[2]), ab = ab, nskip = r$nskip)
}