CRAN Package Check Results for Package spatstat

Last updated on 2014-09-18 21:46:57.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.38-1 67.74 427.71 495.45 NOTE --no-tests
r-devel-linux-x86_64-debian-gcc 1.38-1 76.98 411.75 488.73 NOTE --no-tests
r-devel-linux-x86_64-fedora-clang 1.38-1 1156.27 NOTE
r-devel-linux-x86_64-fedora-gcc 1.38-1 876.94 NOTE
r-devel-osx-x86_64-clang 1.38-1 911.08 NOTE
r-devel-windows-ix86+x86_64 1.38-1 200.00 809.00 1009.00 NOTE
r-patched-linux-x86_64 1.38-1 85.07 446.31 531.38 NOTE --no-tests
r-patched-solaris-sparc 1.38-1 6117.60 NOTE
r-patched-solaris-x86 1.38-1 1534.00 NOTE
r-release-linux-ix86 1.38-1 92.80 525.05 617.84 NOTE --no-tests
r-release-linux-x86_64 1.38-1 83.74 445.89 529.63 NOTE --no-tests
r-release-osx-x86_64-mavericks 1.38-1 NOTE
r-release-osx-x86_64-snowleopard 1.38-1 NOTE
r-release-windows-ix86+x86_64 1.38-1 192.00 906.00 1098.00 NOTE
r-oldrel-windows-ix86+x86_64 1.38-1 188.00 978.00 1166.00 NOTE

Check Details

Version: 1.38-1
Flags: --no-tests
Check: installed package size
Result: NOTE
     installed size is 13.4Mb
     sub-directories of 1Mb or more:
     R 2.8Mb
     data 3.3Mb
     doc 1.0Mb
     help 4.0Mb
     libs 1.7Mb
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-ix86, r-release-linux-x86_64

Version: 1.38-1
Flags: --no-tests
Check: foreign function calls
Result: NOTE
    Calls with DUP:
     .C("locxprod", ntest = as.integer(nM), xtest = as.double(xM),
     ytest = as.double(yM), ndata = as.integer(npts), xdata = as.double(xord),
     ydata = as.double(yord), vdata = as.double(vord), nr = as.integer(nr),
     rmax = as.double(rmax), ans = as.double(numeric(nM * nr)),
     DUP = DUP)
     .C("locprod", n = as.integer(npts), x = as.double(xord), y = as.double(yord),
     v = as.double(vord), nr = as.integer(nr), rmax = as.double(rmax),
     ans = as.double(numeric(npts * nr)), DUP = DUP)
     .C("KborderI", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     b = as.double(b), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.integer(integer(nr)), denom = as.integer(integer(nr)),
     DUP = DUP)
     .C("KborderD", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     b = as.double(b), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.double(numeric(nr)), denom = as.double(numeric(nr)),
     DUP = DUP)
     .C("Kwborder", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(weights.Xsort), b = as.double(b), nr = as.integer(nr),
     rmax = as.double(rmax), numer = as.double(numeric(nr)), denom = as.double(numeric(nr)),
     DUP = DUP)
     .C("KnoneI", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), numer = as.integer(integer(nr)),
     DUP = DUP)
     .C("KnoneD", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), numer = as.double(numeric(nr)),
     DUP = DUP)
     .C("Kwnone", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(weights.Xsort), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.double(numeric(nr)), DUP = DUP)
     .C("KrectWtd", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(wt), nr = as.integer(nr), rmax = as.double(rmax),
     trimedge = as.double(trimedge), doIso = as.integer(doIso),
     doTrans = as.integer(doTrans), doBord = as.integer(doBord),
     doUnco = as.integer(doUnco), iso = as.double(ziso), trans = as.double(ztrans),
     bnumer = as.double(zbnumer), bdenom = as.double(zbdenom),
     unco = as.double(zunco), DUP = DUP)
     .C("KrectInt", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), trimedge = as.double(trimedge),
     doIso = as.integer(doIso), doTrans = as.integer(doTrans),
     doBord = as.integer(doBord), doUnco = as.integer(doUnco),
     iso = as.double(ziso), trans = as.double(ztrans), bnumer = as.integer(zbnumer),
     bdenom = as.integer(zbdenom), unco = as.integer(zunco), DUP = DUP)
     .C("KrectDbl", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), trimedge = as.double(trimedge),
     doIso = as.integer(doIso), doTrans = as.integer(doTrans),
     doBord = as.integer(doBord), doUnco = as.integer(doUnco),
     iso = as.double(ziso), trans = as.double(ztrans), bnumer = as.double(zbnumer),
     bdenom = as.double(zbdenom), unco = as.double(zunco), DUP = DUP)
     .C("xysiANY", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), ok = as.integer(integer(1)),
     DUP = DUP)
     .C("areadifs", rad = as.double(r), nrads = as.integer(nr), x = as.double(xshift[close]),
     y = as.double(yshift[close]), nn = as.integer(nclose), ngrid = as.integer(ngrid),
     answer = as.double(numeric(nr)), DUP = DUP)
     .C("areaBdif", rad = as.double(r), nrads = as.integer(nr), x = as.double(xshift[close]),
     y = as.double(yshift[close]), nn = as.integer(nclose), ngrid = as.integer(ngrid),
     x0 = as.double(W$xrange[1] - xu), y0 = as.double(W$yrange[1] -
     yu), x1 = as.double(W$xrange[2] - xu), y1 = as.double(W$yrange[2] -
     yu), answer = as.double(numeric(nr)), DUP = DUP)
     .C("seg2pixI", ns = as.integer(nseg), x0 = as.double(x0), y0 = as.double(y0),
     x1 = as.double(x1), y1 = as.double(y1), nx = as.integer(nc),
     ny = as.integer(nr), out = as.integer(integer(nr * nc)),
     DUP = DUP)
     .C("Cbiform", x = as.double(tx), y = as.double(ty), n = as.integer(n),
     p = as.integer(p), v = as.double(v), z = as.double(numeric(n)),
     DUP = DUP)
     .C("digberJ", r = as.double(rvals), dK = as.double(dK), nr = as.integer(nr),
     nrmax = as.integer(nrmax), ndK = as.integer(ndK), J = as.double(numeric(nrmax)),
     DUP = DUP)
     .C("xysegint", na = as.integer(ns), x0a = as.double(x0s), y0a = as.double(y0s),
     dxa = as.double(dxs), dya = as.double(dys), nb = as.integer(nw),
     x0b = as.double(x0w), y0b = as.double(y0w), dxb = as.double(dxw),
     dyb = as.double(dyw), eps = as.double(eps), xx = as.double(numeric(ns *
     nw)), yy = as.double(numeric(ns * nw)), ta = as.double(numeric(ns *
     nw)), tb = as.double(numeric(ns * nw)), ok = as.integer(integer(ns *
     nw)), DUP = DUP)
     .C("Cclosepaircounts", nxy = as.integer(nX), x = as.double(Xsort$x),
     y = as.double(Xsort$y), rmaxi = as.double(r), counts = as.integer(integer(nX)),
     DUP = DUP)
     .C("Fclosepairs", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("paircount", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), rmaxi = as.double(rmaxplus), count = as.integer(integer(1)),
     DUP = DUP)
     .C("Fclosepairs", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("cocoGraph", nv = as.integer(nv), ne = as.integer(ne), ie = as.integer(ie),
     je = as.integer(je), label = as.integer(integer(nv)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("Ccountends", np = as.integer(np), f = as.double(startfraction),
     seg = as.integer(seg0), r = as.double(r), nv = as.integer(vertices$n),
     xv = as.double(vertices$x), yv = as.double(vertices$y), ns = as.integer(ns),
     from = as.integer(from0), to = as.integer(to0), dpath = as.double(dpath),
     lengths = as.double(lengths), toler = as.double(toler), nendpoints = as.integer(integer(np)),
     DUP = DUP)
     .C("Ccrossdist", nfrom = as.integer(n1), xfrom = as.double(x1),
     yfrom = as.double(y1), nto = as.integer(n2), xto = as.double(x2),
     yto = as.double(y2), squared = as.integer(squared), d = as.double(matrix(0,
     nrow = n1, ncol = n2)), DUP = DUP)
     .C("CcrossPdist", nfrom = as.integer(n1), xfrom = as.double(x1),
     yfrom = as.double(y1), nto = as.integer(n2), xto = as.double(x2),
     yto = as.double(y2), xwidth = as.double(wide), yheight = as.double(high),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = n1,
     ncol = n2)), DUP = DUP)
     .C("lincrossdist", np = as.integer(nX), xp = as.double(P$x),
     yp = as.double(P$y), nq = as.integer(nY), xq = as.double(Q$x),
     yq = as.double(Q$y), nv = as.integer(Lvert$n), xv = as.double(Lvert$x),
     yv = as.double(Lvert$y), ns = as.double(L$n), from = as.integer(from0),
     to = as.integer(to0), dpath = as.double(dpath), psegmap = as.integer(Xsegmap),
     qsegmap = as.integer(Ysegmap), answer = as.double(crossdistmat),
     DUP = DUP)
     .C("D3crossdist", nfrom = as.integer(nX), xfrom = as.double(cX$x),
     yfrom = as.double(cX$y), zfrom = as.double(cX$z), nto = as.integer(nY),
     xto = as.double(cY$x), yto = as.double(cY$y), zto = as.double(cY$z),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = nX,
     ncol = nY)), DUP = DUP)
     .C("D3crossPdist", nfrom = as.integer(nX), xfrom = as.double(cX$x),
     yfrom = as.double(cX$y), zfrom = as.double(cX$z), nto = as.integer(nY),
     xto = as.double(cY$x), yto = as.double(cY$y), zto = as.double(cY$z),
     xwidth = as.double(wide), yheight = as.double(high), zheight = as.double(deep),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = nX,
     ncol = nY)), DUP = DUP)
     .C("xysegint", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), xx = as.double(numeric(na *
     nb)), yy = as.double(numeric(na * nb)), ta = as.double(numeric(na *
     nb)), tb = as.double(numeric(na * nb)), ok = as.integer(integer(na *
     nb)), DUP = DUP)
     .C("Ccrosspaircounts", nnsource = as.integer(nX), xsource = as.double(Xsort$x),
     ysource = as.double(Xsort$y), nntarget = as.integer(nY),
     xtarget = as.double(Ysort$x), ytarget = as.double(Ysort$y),
     rrmax = as.double(r), counts = as.integer(integer(nX)), DUP = DUP)
     .C("crosscount", nn1 = as.integer(X$n), x1 = as.double(Xsort$x),
     y1 = as.double(Xsort$y), nn2 = as.integer(Ysort$n), x2 = as.double(Ysort$x),
     y2 = as.double(Ysort$y), rmaxi = as.double(rmaxplus), count = as.integer(integer(1)),
     DUP = DUP)
     .C("Fcrosspairs", nn1 = as.integer(X$n), x1 = as.double(Xsort$x),
     y1 = as.double(Xsort$y), nn2 = as.integer(Y$n), x2 = as.double(Ysort$x),
     y2 = as.double(Ysort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("crdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), rmaxi = as.double(cutoff), sig = as.double(sd),
     result = as.double(double(nquery)), DUP = DUP)
     .C("wtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("wtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort[, j]), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("acrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("awtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort), rmaxi = as.double(cutoff),
     detsigma = as.double(detSigma), sinv = as.double(flatSinv),
     result = as.double(double(nquery)), DUP = DUP)
     .C("awtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort[, j]), rmaxi = as.double(cutoff),
     detsigma = as.double(detSigma), sinv = as.double(flatSinv),
     result = as.double(double(nquery)), DUP = DUP)
     .C("denspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), result = as.double(double(npts)),
     DUP = DUP)
     .C("wtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), weight = as.double(wtsort),
     result = as.double(double(npts)), DUP = DUP)
     .C("wtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), weight = as.double(wtsort[,
     j]), result = as.double(double(npts)), DUP = DUP)
     .C("adenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), weight = as.double(wtsort[, j]),
     result = as.double(double(npts)), DUP = DUP)
     .C("RcallF3", as.double(w/2), as.double(w/2), as.double(w/2),
     as.integer(1), as.double(0), as.double(w), as.double(0),
     as.double(w), as.double(0), as.double(w), as.double(vside),
     as.double(range[1]), as.double(range[2]), as.integer(nval),
     num = as.integer(integer(nval)), denom = as.integer(integer(nval)),
     as.integer(0), DUP = DUP)
     .C("discareapoly", nc = as.integer(n), xc = as.double(X$x), yc = as.double(X$y),
     nr = as.integer(nr), rmat = as.double(r), nseg = as.integer(Y$n),
     x0 = as.double(Y$ends$x0), y0 = as.double(Y$ends$y0), x1 = as.double(Y$ends$x1),
     y1 = as.double(Y$ends$y1), eps = as.double(.Machine$double.eps),
     out = as.double(numeric(length(r))), DUP = DUP)
     .C("Ddist2dpath", nv = as.integer(n), d = as.double(d), adj = as.integer(adj),
     dpath = as.double(numeric(n * n)), tol = as.double(tol),
     niter = as.integer(integer(1)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("distmapbin", as.double(X$xrange[1]), as.double(X$yrange[1]),
     as.double(X$xrange[2]), as.double(X$yrange[2]), nr = as.integer(nr),
     nc = as.integer(nc), as.logical(t(mat)), distances = as.double(matrix(0,
     ncol = nc + 2, nrow = nr + 2)), boundary = as.double(matrix(0,
     ncol = nc + 2, nrow = nr + 2)), DUP = DUP)
     .C("nndist2segs", xp = as.double(xp), yp = as.double(yp), npoints = as.integer(np),
     x0 = as.double(E$x0), y0 = as.double(E$y0), x1 = as.double(E$x1),
     y1 = as.double(E$y1), nsegments = as.integer(nrow(E)), epsilon = as.double(.Machine$double.eps),
     dist2 = as.double(dist2), index = as.integer(integer(np)),
     DUP = DUP)
     .C("prdist2segs", x = as.double(xp), y = as.double(yp), npoints = as.integer(np),
     x0 = as.double(l[, 1]), y0 = as.double(l[, 2]), x1 = as.double(l[,
     3]), y1 = as.double(l[, 4]), nsegments = as.integer(nl),
     epsilon = as.double(eps), dist2 = as.double(numeric(np *
     nl)), DUP = DUP)
     .C("nndist2segs", xp = as.double(p[, 1]), yp = as.double(p[,
     2]), npoints = as.integer(np), x0 = as.double(l[, 1]), y0 = as.double(l[,
     2]), x1 = as.double(l[, 3]), y1 = as.double(l[, 4]), nsegments = as.integer(nl),
     epsilon = as.double(.Machine$double.eps), dist2 = as.double(dist2),
     index = as.integer(integer(np)), DUP = DUP)
     .C("ripleybox", nx = as.integer(n), x = as.double(x), y = as.double(y),
     rmat = as.double(r), nr = as.integer(Nc), xmin = as.double(W$xrange[1]),
     ymin = as.double(W$yrange[1]), xmax = as.double(W$xrange[2]),
     ymax = as.double(W$yrange[2]), epsilon = as.double(.Machine$double.eps),
     out = as.double(numeric(Nr * Nc)), DUP = DUP)
     .C("ripleypoly", nc = as.integer(n), xc = as.double(x), yc = as.double(y),
     nr = as.integer(Nc), rmat = as.double(r), nseg = as.integer(Y$n),
     x0 = as.double(Y$ends$x0), y0 = as.double(Y$ends$y0), x1 = as.double(Y$ends$x1),
     y1 = as.double(Y$ends$y1), out = as.double(numeric(Nr * Nc)),
     DUP = DUP)
     .C("ps_exact_dt_R", as.double(w$xrange[1]), as.double(w$yrange[1]),
     as.double(w$xrange[2]), as.double(w$yrange[2]), nr = as.integer(nr),
     nc = as.integer(nc), mr = as.integer(mr), mc = as.integer(mc),
     inp = as.integer(t(x)), distances = as.double(double(N)),
     rows = as.integer(integer(N)), cols = as.integer(integer(N)),
     boundary = as.double(double(N)), DUP = DUP)
     .C("exact_dt_R", as.double(X$x), as.double(X$y), as.integer(X$n),
     as.double(w$xrange[1]), as.double(w$yrange[1]), as.double(w$xrange[2]),
     as.double(w$yrange[2]), nr = as.integer(nr), nc = as.integer(nc),
     mr = as.integer(mr), mc = as.integer(mc), distances = as.double(double(N)),
     indices = as.integer(integer(N)), boundary = as.double(double(N)),
     DUP = DUP)
     .C("RcallF3cen", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(vside), as.double(0), as.double(rmax), m = as.integer(nrval),
     obs = as.integer(integer(nrval)), nco = as.integer(integer(nrval)),
     cen = as.integer(integer(nrval)), ncc = as.integer(integer(nrval)),
     upperobs = as.integer(integer(1)), uppercen = as.integer(integer(1)),
     DUP = DUP)
     .C("RcallF3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(vside), as.double(range[1]), as.double(range[2]),
     m = as.integer(nval), num = as.integer(integer(nval)), denom = as.integer(integer(nval)),
     as.integer(code), DUP = DUP)
     .C("RcallG3cen", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), m = as.integer(nrval), obs = as.integer(integer(nrval)),
     nco = as.integer(integer(nrval)), cen = as.integer(integer(nrval)),
     ncc = as.integer(integer(nrval)), upperobs = as.integer(integer(1)),
     uppercen = as.integer(integer(1)), DUP = DUP)
     .C("RcallG3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     as.integer(code), DUP = DUP)
     .C("Egeyer", nnquad = as.integer(nU), xquad = as.double(Usort$x),
     yquad = as.double(Usort$y), quadtodata = as.integer(Cmap),
     nndata = as.integer(nX), xdata = as.double(Xsort$x), ydata = as.double(Xsort$y),
     tdata = as.integer(Xcountsort), rrmax = as.double(r), ssat = as.double(sat),
     result = as.double(numeric(nU)), DUP = DUP)
     .C("Cidw", x = as.double(X$x), y = as.double(X$y), v = as.double(marx),
     n = as.integer(npoints(X)), xstart = as.double(W$xcol[1]),
     xstep = as.double(W$xstep), nx = as.integer(dim[2]), ystart = as.double(W$yrow[1]),
     ystep = as.double(W$ystep), ny = as.integer(dim[1]), power = as.double(power),
     num = as.double(numeric(npixels)), den = as.double(numeric(npixels)),
     rat = as.double(numeric(npixels)), DUP = DUP)
     .C("idwloo", x = as.double(X$x), y = as.double(X$y), v = as.double(marx),
     n = as.integer(npts), power = as.double(power), num = as.double(numeric(npts)),
     den = as.double(numeric(npts)), rat = as.double(numeric(npts)),
     DUP = DUP)
     .C("Cmatchxy", na = as.integer(npts), xa = as.double(x), ya = as.double(y),
     nb = as.integer(nedges), xb = as.double(xp), yb = as.double(yp),
     match = as.integer(integer(npts)), DUP = DUP)
     .C("RcallK3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     as.integer(code), DUP = DUP)
     .C("locpcfx", nn1 = as.integer(nY), x1 = as.double(Ysort$x),
     y1 = as.double(Ysort$y), id1 = as.integer(idYsort), nn2 = as.integer(nX),
     x2 = as.double(Xsort$x), y2 = as.double(Xsort$y), id2 = as.integer(idXsort),
     nnr = as.integer(nr), rmaxi = as.double(rmax), del = as.double(delta),
     pcf = as.double(double(nr * nY)), DUP = DUP)
     .C("locWpcfx", nn1 = as.integer(nY), x1 = as.double(Ysort$x),
     y1 = as.double(Ysort$y), id1 = as.integer(idYsort), nn2 = as.integer(nX),
     x2 = as.double(Xsort$x), y2 = as.double(Xsort$y), id2 = as.integer(idXsort),
     w2 = as.double(weightXsort), nnr = as.integer(nr), rmaxi = as.double(rmax),
     del = as.double(delta), pcf = as.double(double(nr * nY)),
     DUP = DUP)
     .C("maxnnd2", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     as.double(big), result = as.double(numeric(1)), DUP = DUP)
     .C("minnnd2", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     as.double(big), result = as.double(numeric(1)), DUP = DUP)
     .C("nnX3Dinterface", n1 = as.integer(nX), x1 = as.double(XX[,
     1]), y1 = as.double(XX[, 2]), z1 = as.double(XX[, 3]), id1 = as.integer(iX),
     n2 = as.integer(nY), x2 = as.double(YY[, 1]), y2 = as.double(YY[,
     2]), z2 = as.double(YY[, 3]), id2 = as.integer(iY), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnX3Dinterface", n1 = as.integer(nX), x1 = as.double(XX[,
     1]), y1 = as.double(XX[, 2]), z1 = as.double(XX[, 3]), id1 = as.integer(iX),
     n2 = as.integer(nY), x2 = as.double(YY[, 1]), y2 = as.double(YY[,
     2]), z2 = as.double(YY[, 3]), id2 = as.integer(iY), kmax = as.integer(kmaxcalc),
     exclude = as.integer(exclude), wantdist = as.integer(want.dist),
     wantwhich = as.integer(want.which), nnd = as.double(nndv),
     nnwhich = as.integer(nnwh), huge = as.double(huge), DUP = DUP)
     .C("nnXinterface", n1 = as.integer(nX), x1 = as.double(Xx), y1 = as.double(Xy),
     id1 = as.integer(iX), n2 = as.integer(nY), x2 = as.double(Yx),
     y2 = as.double(Yy), id2 = as.integer(iY), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnXinterface", n1 = as.integer(nX), x1 = as.double(Xx),
     y1 = as.double(Xy), id1 = as.integer(iX), n2 = as.integer(nY),
     x2 = as.double(Yx), y2 = as.double(Yy), id2 = as.integer(iY),
     kmax = as.integer(kmaxcalc), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("nndistsort", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     nnd = as.double(nnd), as.double(big), DUP = DUP)
     .C("knndsort", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), nnd = as.double(nnd),
     huge = as.double(big), DUP = DUP)
     .C("nnd3D", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     z = as.double(z[o]), nnd = as.double(nnd), nnwhich = as.integer(integer(1)),
     huge = as.double(big), DUP = DUP)
     .C("knnd3D", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), z = as.double(z[o]),
     nnd = as.double(nnd), nnwhich = as.integer(integer(1)), huge = as.double(big),
     DUP = DUP)
     .C("nndMD", n = as.integer(n), m = as.integer(m), x = as.double(t(coo[o,
     ])), nnd = as.double(nnd), as.double(big), DUP = DUP)
     .C("knndMD", n = as.integer(n), m = as.integer(m), kmax = as.integer(kmaxcalc),
     x = as.double(t(coo[o, ])), nnd = as.double(nnd), huge = as.double(big),
     DUP = DUP)
     .C("nnGinterface", nx = as.integer(nxcol), x0 = as.double(M$xcol[1]),
     xstep = as.double(M$xstep), ny = as.integer(nyrow), y0 = as.double(M$yrow[1]),
     ystep = as.double(M$ystep), np = as.integer(nX), xp = as.double(xx),
     yp = as.double(yy), wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnGinterface", nx = as.integer(nxcol), x0 = as.double(M$xcol[1]),
     xstep = as.double(M$xstep), ny = as.integer(nyrow), y0 = as.double(M$yrow[1]),
     ystep = as.double(M$ystep), np = as.integer(nX), xp = as.double(xx),
     yp = as.double(yy), kmax = as.integer(kmaxcalc), wantdist = as.integer(want.dist),
     wantwhich = as.integer(want.which), nnd = as.double(nndv),
     nnwhich = as.integer(nnwh), huge = as.double(huge), DUP = DUP)
     .C("nnwhichsort", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     nnwhich = as.integer(nnw), huge = as.double(big), DUP = DUP)
     .C("knnsort", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), nnd = as.double(numeric(n *
     kmaxcalc)), nnwhich = as.integer(nnw), huge = as.double(big),
     DUP = DUP)
     .C("nnw3D", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     z = as.double(z[o]), nnd = as.double(numeric(1)), nnwhich = as.integer(nnw),
     huge = as.double(big), DUP = DUP)
     .C("knnw3D", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), z = as.double(z[o]),
     nnd = as.double(numeric(1)), nnwhich = as.integer(nnw), huge = as.double(big),
     DUP = DUP)
     .C("nnwMD", n = as.integer(n), m = as.integer(m), x = as.double(t(coo[o,
     ])), nnd = as.double(numeric(n)), nnwhich = as.integer(nnw),
     huge = as.double(big), DUP = DUP)
     .C("knnwMD", n = as.integer(n), m = as.integer(m), kmax = as.integer(kmaxcalc),
     x = as.double(t(coo[o, ])), nnd = as.double(numeric(n * kmaxcalc)),
     nnwhich = as.integer(nnw), huge = as.double(big), DUP = DUP)
     .C("Cpairdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     squared = as.integer(squared), d = as.double(d), DUP = DUP)
     .C("CpairPdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     xwidth = as.double(wide), yheight = as.double(high), squared = as.integer(squared),
     d = as.double(d), DUP = DUP)
     .C("linpairdist", np = as.integer(n), xp = as.double(Y$x), yp = as.double(Y$y),
     nv = as.integer(Lvert$n), xv = as.double(Lvert$x), yv = as.double(Lvert$y),
     ns = as.double(L$n), from = as.integer(from0), to = as.integer(to0),
     dpath = as.double(dpath), segmap = as.integer(segmap), answer = as.double(pairdistmat),
     DUP = DUP)
     .C("D3pairdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     z = as.double(z), squared = as.integer(squared), d = as.double(numeric(n *
     n)), DUP = DUP)
     .C("D3pairPdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     z = as.double(z), xwidth = as.double(wide), yheight = as.double(high),
     zdepth = as.double(deep), squared = as.integer(squared),
     d = as.double(numeric(n * n)), DUP = DUP)
     .C("Rcallpcf3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     method = as.integer(code), delta = as.double(delta), DUP = DUP)
     .C("poly2imA", ncol = as.integer(nx), nrow = as.integer(ny),
     xpoly = as.double(xx), ypoly = as.double(yy), npoly = as.integer(nn),
     out = as.double(numeric(nx * ny)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("seg2pixL", ns = as.integer(nseg), x0 = as.double(x0), y0 = as.double(y0),
     x1 = as.double(x1), y1 = as.double(y1), weights = as.double(weights),
     pixwidth = as.double(Z$xstep), pixheight = as.double(Z$ystep),
     nx = as.integer(nc), ny = as.integer(nr), out = as.double(numeric(nr *
     nc)), DUP = DUP)
     .C("Cquadform", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     v = as.double(v), y = as.double(numeric(n)), DUP = DUP)
     .C("scantrans", x = as.double(X$x), y = as.double(X$y), n = as.integer(n),
     xmin = as.double(xr[1]), ymin = as.double(yr[1]), xmax = as.double(xr[2]),
     ymax = as.double(yr[2]), nr = as.integer(nr), nc = as.integer(nc),
     R = as.double(r), counts = as.integer(numeric(prod(dimyx))),
     DUP = DUP)
     .C("xysegXint", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     xx = as.double(numeric(n^2)), yy = as.double(numeric(n^2)),
     ti = as.double(numeric(n^2)), tj = as.double(numeric(n^2)),
     ok = as.integer(integer(n^2)), DUP = DUP)
     .C("crsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("wtcrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), wd = as.double(wtsort),
     rmaxi = as.double(cutoff), sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("acrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("awtcrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), wd = as.double(wtsort),
     rmaxi = as.double(cutoff), sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("smoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(npts)), DUP = DUP)
     .C("wtsmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sig = as.double(sd), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("asmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtsmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("Csumouter", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     y = as.double(numeric(p * p)), DUP = DUP)
     .C("Cwsumouter", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     w = as.double(w), y = as.double(numeric(p * p)), DUP = DUP)
     .C("Csumsymouter", x = as.double(x), p = as.integer(p), n = as.integer(n),
     y = as.double(numeric(p * p)), DUP = DUP)
     .C("Cwsumsymouter", x = as.double(x), w = as.double(w), p = as.integer(p),
     n = as.integer(n), y = as.double(numeric(p * p)), DUP = DUP)
     .C("xysi", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), ok = as.integer(integer(na *
     nb)), DUP = DUP)
     .C("xysxi", na = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     ok = as.integer(integer(n * n)), DUP = DUP)
     .C("Corput", base = as.integer(base), n = as.integer(n), result = as.double(numeric(n)),
     DUP = DUP)
     .C("xypsi", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), xsep = as.double(2 *
     max(abs(dx))), ysep = as.double(2 * max(abs(dy))), eps = as.double(eps),
     proper = as.integer(proper), answer = as.integer(integer(1)),
     DUP = DUP)
     .C("Cxypolyselfint", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     xx = as.double(numeric(n^2)), yy = as.double(numeric(n^2)),
     ti = as.double(numeric(n^2)), tj = as.double(numeric(n^2)),
     ok = as.integer(integer(n^2)), DUP = DUP)
    DUP is no longer supported and will be ignored.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc

Version: 1.38-1
Check: installed package size
Result: NOTE
     installed size is 13.4Mb
     sub-directories of 1Mb or more:
     R 2.8Mb
     data 3.3Mb
     doc 1.0Mb
     help 4.0Mb
     libs 1.7Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-osx-x86_64-clang, r-devel-windows-ix86+x86_64, r-patched-solaris-sparc, r-patched-solaris-x86, r-release-osx-x86_64-mavericks, r-release-osx-x86_64-snowleopard, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64

Version: 1.38-1
Check: foreign function calls
Result: NOTE
    Calls with DUP:
     .C("locxprod", ntest = as.integer(nM), xtest = as.double(xM),
     ytest = as.double(yM), ndata = as.integer(npts), xdata = as.double(xord),
     ydata = as.double(yord), vdata = as.double(vord), nr = as.integer(nr),
     rmax = as.double(rmax), ans = as.double(numeric(nM * nr)),
     DUP = DUP)
     .C("locprod", n = as.integer(npts), x = as.double(xord), y = as.double(yord),
     v = as.double(vord), nr = as.integer(nr), rmax = as.double(rmax),
     ans = as.double(numeric(npts * nr)), DUP = DUP)
     .C("KborderI", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     b = as.double(b), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.integer(integer(nr)), denom = as.integer(integer(nr)),
     DUP = DUP)
     .C("KborderD", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     b = as.double(b), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.double(numeric(nr)), denom = as.double(numeric(nr)),
     DUP = DUP)
     .C("Kwborder", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(weights.Xsort), b = as.double(b), nr = as.integer(nr),
     rmax = as.double(rmax), numer = as.double(numeric(nr)), denom = as.double(numeric(nr)),
     DUP = DUP)
     .C("KnoneI", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), numer = as.integer(integer(nr)),
     DUP = DUP)
     .C("KnoneD", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), numer = as.double(numeric(nr)),
     DUP = DUP)
     .C("Kwnone", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(weights.Xsort), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.double(numeric(nr)), DUP = DUP)
     .C("KrectWtd", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(wt), nr = as.integer(nr), rmax = as.double(rmax),
     trimedge = as.double(trimedge), doIso = as.integer(doIso),
     doTrans = as.integer(doTrans), doBord = as.integer(doBord),
     doUnco = as.integer(doUnco), iso = as.double(ziso), trans = as.double(ztrans),
     bnumer = as.double(zbnumer), bdenom = as.double(zbdenom),
     unco = as.double(zunco), DUP = DUP)
     .C("KrectInt", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), trimedge = as.double(trimedge),
     doIso = as.integer(doIso), doTrans = as.integer(doTrans),
     doBord = as.integer(doBord), doUnco = as.integer(doUnco),
     iso = as.double(ziso), trans = as.double(ztrans), bnumer = as.integer(zbnumer),
     bdenom = as.integer(zbdenom), unco = as.integer(zunco), DUP = DUP)
     .C("KrectDbl", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), trimedge = as.double(trimedge),
     doIso = as.integer(doIso), doTrans = as.integer(doTrans),
     doBord = as.integer(doBord), doUnco = as.integer(doUnco),
     iso = as.double(ziso), trans = as.double(ztrans), bnumer = as.double(zbnumer),
     bdenom = as.double(zbdenom), unco = as.double(zunco), DUP = DUP)
     .C("xysiANY", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), ok = as.integer(integer(1)),
     DUP = DUP)
     .C("areadifs", rad = as.double(r), nrads = as.integer(nr), x = as.double(xshift[close]),
     y = as.double(yshift[close]), nn = as.integer(nclose), ngrid = as.integer(ngrid),
     answer = as.double(numeric(nr)), DUP = DUP)
     .C("areaBdif", rad = as.double(r), nrads = as.integer(nr), x = as.double(xshift[close]),
     y = as.double(yshift[close]), nn = as.integer(nclose), ngrid = as.integer(ngrid),
     x0 = as.double(W$xrange[1] - xu), y0 = as.double(W$yrange[1] -
     yu), x1 = as.double(W$xrange[2] - xu), y1 = as.double(W$yrange[2] -
     yu), answer = as.double(numeric(nr)), DUP = DUP)
     .C("seg2pixI", ns = as.integer(nseg), x0 = as.double(x0), y0 = as.double(y0),
     x1 = as.double(x1), y1 = as.double(y1), nx = as.integer(nc),
     ny = as.integer(nr), out = as.integer(integer(nr * nc)),
     DUP = DUP)
     .C("Cbiform", x = as.double(tx), y = as.double(ty), n = as.integer(n),
     p = as.integer(p), v = as.double(v), z = as.double(numeric(n)),
     DUP = DUP)
     .C("digberJ", r = as.double(rvals), dK = as.double(dK), nr = as.integer(nr),
     nrmax = as.integer(nrmax), ndK = as.integer(ndK), J = as.double(numeric(nrmax)),
     DUP = DUP)
     .C("xysegint", na = as.integer(ns), x0a = as.double(x0s), y0a = as.double(y0s),
     dxa = as.double(dxs), dya = as.double(dys), nb = as.integer(nw),
     x0b = as.double(x0w), y0b = as.double(y0w), dxb = as.double(dxw),
     dyb = as.double(dyw), eps = as.double(eps), xx = as.double(numeric(ns *
     nw)), yy = as.double(numeric(ns * nw)), ta = as.double(numeric(ns *
     nw)), tb = as.double(numeric(ns * nw)), ok = as.integer(integer(ns *
     nw)), DUP = DUP)
     .C("Cclosepaircounts", nxy = as.integer(nX), x = as.double(Xsort$x),
     y = as.double(Xsort$y), rmaxi = as.double(r), counts = as.integer(integer(nX)),
     DUP = DUP)
     .C("Fclosepairs", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("paircount", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), rmaxi = as.double(rmaxplus), count = as.integer(integer(1)),
     DUP = DUP)
     .C("Fclosepairs", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("cocoGraph", nv = as.integer(nv), ne = as.integer(ne), ie = as.integer(ie),
     je = as.integer(je), label = as.integer(integer(nv)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("Ccountends", np = as.integer(np), f = as.double(startfraction),
     seg = as.integer(seg0), r = as.double(r), nv = as.integer(vertices$n),
     xv = as.double(vertices$x), yv = as.double(vertices$y), ns = as.integer(ns),
     from = as.integer(from0), to = as.integer(to0), dpath = as.double(dpath),
     lengths = as.double(lengths), toler = as.double(toler), nendpoints = as.integer(integer(np)),
     DUP = DUP)
     .C("Ccrossdist", nfrom = as.integer(n1), xfrom = as.double(x1),
     yfrom = as.double(y1), nto = as.integer(n2), xto = as.double(x2),
     yto = as.double(y2), squared = as.integer(squared), d = as.double(matrix(0,
     nrow = n1, ncol = n2)), DUP = DUP)
     .C("CcrossPdist", nfrom = as.integer(n1), xfrom = as.double(x1),
     yfrom = as.double(y1), nto = as.integer(n2), xto = as.double(x2),
     yto = as.double(y2), xwidth = as.double(wide), yheight = as.double(high),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = n1,
     ncol = n2)), DUP = DUP)
     .C("lincrossdist", np = as.integer(nX), xp = as.double(P$x),
     yp = as.double(P$y), nq = as.integer(nY), xq = as.double(Q$x),
     yq = as.double(Q$y), nv = as.integer(Lvert$n), xv = as.double(Lvert$x),
     yv = as.double(Lvert$y), ns = as.double(L$n), from = as.integer(from0),
     to = as.integer(to0), dpath = as.double(dpath), psegmap = as.integer(Xsegmap),
     qsegmap = as.integer(Ysegmap), answer = as.double(crossdistmat),
     DUP = DUP)
     .C("D3crossdist", nfrom = as.integer(nX), xfrom = as.double(cX$x),
     yfrom = as.double(cX$y), zfrom = as.double(cX$z), nto = as.integer(nY),
     xto = as.double(cY$x), yto = as.double(cY$y), zto = as.double(cY$z),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = nX,
     ncol = nY)), DUP = DUP)
     .C("D3crossPdist", nfrom = as.integer(nX), xfrom = as.double(cX$x),
     yfrom = as.double(cX$y), zfrom = as.double(cX$z), nto = as.integer(nY),
     xto = as.double(cY$x), yto = as.double(cY$y), zto = as.double(cY$z),
     xwidth = as.double(wide), yheight = as.double(high), zheight = as.double(deep),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = nX,
     ncol = nY)), DUP = DUP)
     .C("xysegint", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), xx = as.double(numeric(na *
     nb)), yy = as.double(numeric(na * nb)), ta = as.double(numeric(na *
     nb)), tb = as.double(numeric(na * nb)), ok = as.integer(integer(na *
     nb)), DUP = DUP)
     .C("Ccrosspaircounts", nnsource = as.integer(nX), xsource = as.double(Xsort$x),
     ysource = as.double(Xsort$y), nntarget = as.integer(nY),
     xtarget = as.double(Ysort$x), ytarget = as.double(Ysort$y),
     rrmax = as.double(r), counts = as.integer(integer(nX)), DUP = DUP)
     .C("crosscount", nn1 = as.integer(X$n), x1 = as.double(Xsort$x),
     y1 = as.double(Xsort$y), nn2 = as.integer(Ysort$n), x2 = as.double(Ysort$x),
     y2 = as.double(Ysort$y), rmaxi = as.double(rmaxplus), count = as.integer(integer(1)),
     DUP = DUP)
     .C("Fcrosspairs", nn1 = as.integer(X$n), x1 = as.double(Xsort$x),
     y1 = as.double(Xsort$y), nn2 = as.integer(Y$n), x2 = as.double(Ysort$x),
     y2 = as.double(Ysort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("crdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), rmaxi = as.double(cutoff), sig = as.double(sd),
     result = as.double(double(nquery)), DUP = DUP)
     .C("wtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("wtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort[, j]), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("acrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("awtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort), rmaxi = as.double(cutoff),
     detsigma = as.double(detSigma), sinv = as.double(flatSinv),
     result = as.double(double(nquery)), DUP = DUP)
     .C("awtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort[, j]), rmaxi = as.double(cutoff),
     detsigma = as.double(detSigma), sinv = as.double(flatSinv),
     result = as.double(double(nquery)), DUP = DUP)
     .C("denspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), result = as.double(double(npts)),
     DUP = DUP)
     .C("wtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), weight = as.double(wtsort),
     result = as.double(double(npts)), DUP = DUP)
     .C("wtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), weight = as.double(wtsort[,
     j]), result = as.double(double(npts)), DUP = DUP)
     .C("adenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), weight = as.double(wtsort[, j]),
     result = as.double(double(npts)), DUP = DUP)
     .C("RcallF3", as.double(w/2), as.double(w/2), as.double(w/2),
     as.integer(1), as.double(0), as.double(w), as.double(0),
     as.double(w), as.double(0), as.double(w), as.double(vside),
     as.double(range[1]), as.double(range[2]), as.integer(nval),
     num = as.integer(integer(nval)), denom = as.integer(integer(nval)),
     as.integer(0), DUP = DUP)
     .C("discareapoly", nc = as.integer(n), xc = as.double(X$x), yc = as.double(X$y),
     nr = as.integer(nr), rmat = as.double(r), nseg = as.integer(Y$n),
     x0 = as.double(Y$ends$x0), y0 = as.double(Y$ends$y0), x1 = as.double(Y$ends$x1),
     y1 = as.double(Y$ends$y1), eps = as.double(.Machine$double.eps),
     out = as.double(numeric(length(r))), DUP = DUP)
     .C("Ddist2dpath", nv = as.integer(n), d = as.double(d), adj = as.integer(adj),
     dpath = as.double(numeric(n * n)), tol = as.double(tol),
     niter = as.integer(integer(1)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("distmapbin", as.double(X$xrange[1]), as.double(X$yrange[1]),
     as.double(X$xrange[2]), as.double(X$yrange[2]), nr = as.integer(nr),
     nc = as.integer(nc), as.logical(t(mat)), distances = as.double(matrix(0,
     ncol = nc + 2, nrow = nr + 2)), boundary = as.double(matrix(0,
     ncol = nc + 2, nrow = nr + 2)), DUP = DUP)
     .C("nndist2segs", xp = as.double(xp), yp = as.double(yp), npoints = as.integer(np),
     x0 = as.double(E$x0), y0 = as.double(E$y0), x1 = as.double(E$x1),
     y1 = as.double(E$y1), nsegments = as.integer(nrow(E)), epsilon = as.double(.Machine$double.eps),
     dist2 = as.double(dist2), index = as.integer(integer(np)),
     DUP = DUP)
     .C("prdist2segs", x = as.double(xp), y = as.double(yp), npoints = as.integer(np),
     x0 = as.double(l[, 1]), y0 = as.double(l[, 2]), x1 = as.double(l[,
     3]), y1 = as.double(l[, 4]), nsegments = as.integer(nl),
     epsilon = as.double(eps), dist2 = as.double(numeric(np *
     nl)), DUP = DUP)
     .C("nndist2segs", xp = as.double(p[, 1]), yp = as.double(p[,
     2]), npoints = as.integer(np), x0 = as.double(l[, 1]), y0 = as.double(l[,
     2]), x1 = as.double(l[, 3]), y1 = as.double(l[, 4]), nsegments = as.integer(nl),
     epsilon = as.double(.Machine$double.eps), dist2 = as.double(dist2),
     index = as.integer(integer(np)), DUP = DUP)
     .C("ripleybox", nx = as.integer(n), x = as.double(x), y = as.double(y),
     rmat = as.double(r), nr = as.integer(Nc), xmin = as.double(W$xrange[1]),
     ymin = as.double(W$yrange[1]), xmax = as.double(W$xrange[2]),
     ymax = as.double(W$yrange[2]), epsilon = as.double(.Machine$double.eps),
     out = as.double(numeric(Nr * Nc)), DUP = DUP)
     .C("ripleypoly", nc = as.integer(n), xc = as.double(x), yc = as.double(y),
     nr = as.integer(Nc), rmat = as.double(r), nseg = as.integer(Y$n),
     x0 = as.double(Y$ends$x0), y0 = as.double(Y$ends$y0), x1 = as.double(Y$ends$x1),
     y1 = as.double(Y$ends$y1), out = as.double(numeric(Nr * Nc)),
     DUP = DUP)
     .C("ps_exact_dt_R", as.double(w$xrange[1]), as.double(w$yrange[1]),
     as.double(w$xrange[2]), as.double(w$yrange[2]), nr = as.integer(nr),
     nc = as.integer(nc), mr = as.integer(mr), mc = as.integer(mc),
     inp = as.integer(t(x)), distances = as.double(double(N)),
     rows = as.integer(integer(N)), cols = as.integer(integer(N)),
     boundary = as.double(double(N)), DUP = DUP)
     .C("exact_dt_R", as.double(X$x), as.double(X$y), as.integer(X$n),
     as.double(w$xrange[1]), as.double(w$yrange[1]), as.double(w$xrange[2]),
     as.double(w$yrange[2]), nr = as.integer(nr), nc = as.integer(nc),
     mr = as.integer(mr), mc = as.integer(mc), distances = as.double(double(N)),
     indices = as.integer(integer(N)), boundary = as.double(double(N)),
     DUP = DUP)
     .C("RcallF3cen", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(vside), as.double(0), as.double(rmax), m = as.integer(nrval),
     obs = as.integer(integer(nrval)), nco = as.integer(integer(nrval)),
     cen = as.integer(integer(nrval)), ncc = as.integer(integer(nrval)),
     upperobs = as.integer(integer(1)), uppercen = as.integer(integer(1)),
     DUP = DUP)
     .C("RcallF3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(vside), as.double(range[1]), as.double(range[2]),
     m = as.integer(nval), num = as.integer(integer(nval)), denom = as.integer(integer(nval)),
     as.integer(code), DUP = DUP)
     .C("RcallG3cen", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), m = as.integer(nrval), obs = as.integer(integer(nrval)),
     nco = as.integer(integer(nrval)), cen = as.integer(integer(nrval)),
     ncc = as.integer(integer(nrval)), upperobs = as.integer(integer(1)),
     uppercen = as.integer(integer(1)), DUP = DUP)
     .C("RcallG3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     as.integer(code), DUP = DUP)
     .C("Egeyer", nnquad = as.integer(nU), xquad = as.double(Usort$x),
     yquad = as.double(Usort$y), quadtodata = as.integer(Cmap),
     nndata = as.integer(nX), xdata = as.double(Xsort$x), ydata = as.double(Xsort$y),
     tdata = as.integer(Xcountsort), rrmax = as.double(r), ssat = as.double(sat),
     result = as.double(numeric(nU)), DUP = DUP)
     .C("Cidw", x = as.double(X$x), y = as.double(X$y), v = as.double(marx),
     n = as.integer(npoints(X)), xstart = as.double(W$xcol[1]),
     xstep = as.double(W$xstep), nx = as.integer(dim[2]), ystart = as.double(W$yrow[1]),
     ystep = as.double(W$ystep), ny = as.integer(dim[1]), power = as.double(power),
     num = as.double(numeric(npixels)), den = as.double(numeric(npixels)),
     rat = as.double(numeric(npixels)), DUP = DUP)
     .C("idwloo", x = as.double(X$x), y = as.double(X$y), v = as.double(marx),
     n = as.integer(npts), power = as.double(power), num = as.double(numeric(npts)),
     den = as.double(numeric(npts)), rat = as.double(numeric(npts)),
     DUP = DUP)
     .C("Cmatchxy", na = as.integer(npts), xa = as.double(x), ya = as.double(y),
     nb = as.integer(nedges), xb = as.double(xp), yb = as.double(yp),
     match = as.integer(integer(npts)), DUP = DUP)
     .C("RcallK3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     as.integer(code), DUP = DUP)
     .C("locpcfx", nn1 = as.integer(nY), x1 = as.double(Ysort$x),
     y1 = as.double(Ysort$y), id1 = as.integer(idYsort), nn2 = as.integer(nX),
     x2 = as.double(Xsort$x), y2 = as.double(Xsort$y), id2 = as.integer(idXsort),
     nnr = as.integer(nr), rmaxi = as.double(rmax), del = as.double(delta),
     pcf = as.double(double(nr * nY)), DUP = DUP)
     .C("locWpcfx", nn1 = as.integer(nY), x1 = as.double(Ysort$x),
     y1 = as.double(Ysort$y), id1 = as.integer(idYsort), nn2 = as.integer(nX),
     x2 = as.double(Xsort$x), y2 = as.double(Xsort$y), id2 = as.integer(idXsort),
     w2 = as.double(weightXsort), nnr = as.integer(nr), rmaxi = as.double(rmax),
     del = as.double(delta), pcf = as.double(double(nr * nY)),
     DUP = DUP)
     .C("maxnnd2", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     as.double(big), result = as.double(numeric(1)), DUP = DUP)
     .C("minnnd2", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     as.double(big), result = as.double(numeric(1)), DUP = DUP)
     .C("nnX3Dinterface", n1 = as.integer(nX), x1 = as.double(XX[,
     1]), y1 = as.double(XX[, 2]), z1 = as.double(XX[, 3]), id1 = as.integer(iX),
     n2 = as.integer(nY), x2 = as.double(YY[, 1]), y2 = as.double(YY[,
     2]), z2 = as.double(YY[, 3]), id2 = as.integer(iY), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnX3Dinterface", n1 = as.integer(nX), x1 = as.double(XX[,
     1]), y1 = as.double(XX[, 2]), z1 = as.double(XX[, 3]), id1 = as.integer(iX),
     n2 = as.integer(nY), x2 = as.double(YY[, 1]), y2 = as.double(YY[,
     2]), z2 = as.double(YY[, 3]), id2 = as.integer(iY), kmax = as.integer(kmaxcalc),
     exclude = as.integer(exclude), wantdist = as.integer(want.dist),
     wantwhich = as.integer(want.which), nnd = as.double(nndv),
     nnwhich = as.integer(nnwh), huge = as.double(huge), DUP = DUP)
     .C("nnXinterface", n1 = as.integer(nX), x1 = as.double(Xx), y1 = as.double(Xy),
     id1 = as.integer(iX), n2 = as.integer(nY), x2 = as.double(Yx),
     y2 = as.double(Yy), id2 = as.integer(iY), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnXinterface", n1 = as.integer(nX), x1 = as.double(Xx),
     y1 = as.double(Xy), id1 = as.integer(iX), n2 = as.integer(nY),
     x2 = as.double(Yx), y2 = as.double(Yy), id2 = as.integer(iY),
     kmax = as.integer(kmaxcalc), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("nndistsort", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     nnd = as.double(nnd), as.double(big), DUP = DUP)
     .C("knndsort", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), nnd = as.double(nnd),
     huge = as.double(big), DUP = DUP)
     .C("nnd3D", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     z = as.double(z[o]), nnd = as.double(nnd), nnwhich = as.integer(integer(1)),
     huge = as.double(big), DUP = DUP)
     .C("knnd3D", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), z = as.double(z[o]),
     nnd = as.double(nnd), nnwhich = as.integer(integer(1)), huge = as.double(big),
     DUP = DUP)
     .C("nndMD", n = as.integer(n), m = as.integer(m), x = as.double(t(coo[o,
     ])), nnd = as.double(nnd), as.double(big), DUP = DUP)
     .C("knndMD", n = as.integer(n), m = as.integer(m), kmax = as.integer(kmaxcalc),
     x = as.double(t(coo[o, ])), nnd = as.double(nnd), huge = as.double(big),
     DUP = DUP)
     .C("nnGinterface", nx = as.integer(nxcol), x0 = as.double(M$xcol[1]),
     xstep = as.double(M$xstep), ny = as.integer(nyrow), y0 = as.double(M$yrow[1]),
     ystep = as.double(M$ystep), np = as.integer(nX), xp = as.double(xx),
     yp = as.double(yy), wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnGinterface", nx = as.integer(nxcol), x0 = as.double(M$xcol[1]),
     xstep = as.double(M$xstep), ny = as.integer(nyrow), y0 = as.double(M$yrow[1]),
     ystep = as.double(M$ystep), np = as.integer(nX), xp = as.double(xx),
     yp = as.double(yy), kmax = as.integer(kmaxcalc), wantdist = as.integer(want.dist),
     wantwhich = as.integer(want.which), nnd = as.double(nndv),
     nnwhich = as.integer(nnwh), huge = as.double(huge), DUP = DUP)
     .C("nnwhichsort", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     nnwhich = as.integer(nnw), huge = as.double(big), DUP = DUP)
     .C("knnsort", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), nnd = as.double(numeric(n *
     kmaxcalc)), nnwhich = as.integer(nnw), huge = as.double(big),
     DUP = DUP)
     .C("nnw3D", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     z = as.double(z[o]), nnd = as.double(numeric(1)), nnwhich = as.integer(nnw),
     huge = as.double(big), DUP = DUP)
     .C("knnw3D", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), z = as.double(z[o]),
     nnd = as.double(numeric(1)), nnwhich = as.integer(nnw), huge = as.double(big),
     DUP = DUP)
     .C("nnwMD", n = as.integer(n), m = as.integer(m), x = as.double(t(coo[o,
     ])), nnd = as.double(numeric(n)), nnwhich = as.integer(nnw),
     huge = as.double(big), DUP = DUP)
     .C("knnwMD", n = as.integer(n), m = as.integer(m), kmax = as.integer(kmaxcalc),
     x = as.double(t(coo[o, ])), nnd = as.double(numeric(n * kmaxcalc)),
     nnwhich = as.integer(nnw), huge = as.double(big), DUP = DUP)
     .C("Cpairdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     squared = as.integer(squared), d = as.double(d), DUP = DUP)
     .C("CpairPdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     xwidth = as.double(wide), yheight = as.double(high), squared = as.integer(squared),
     d = as.double(d), DUP = DUP)
     .C("linpairdist", np = as.integer(n), xp = as.double(Y$x), yp = as.double(Y$y),
     nv = as.integer(Lvert$n), xv = as.double(Lvert$x), yv = as.double(Lvert$y),
     ns = as.double(L$n), from = as.integer(from0), to = as.integer(to0),
     dpath = as.double(dpath), segmap = as.integer(segmap), answer = as.double(pairdistmat),
     DUP = DUP)
     .C("D3pairdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     z = as.double(z), squared = as.integer(squared), d = as.double(numeric(n *
     n)), DUP = DUP)
     .C("D3pairPdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     z = as.double(z), xwidth = as.double(wide), yheight = as.double(high),
     zdepth = as.double(deep), squared = as.integer(squared),
     d = as.double(numeric(n * n)), DUP = DUP)
     .C("Rcallpcf3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     method = as.integer(code), delta = as.double(delta), DUP = DUP)
     .C("poly2imA", ncol = as.integer(nx), nrow = as.integer(ny),
     xpoly = as.double(xx), ypoly = as.double(yy), npoly = as.integer(nn),
     out = as.double(numeric(nx * ny)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("seg2pixL", ns = as.integer(nseg), x0 = as.double(x0), y0 = as.double(y0),
     x1 = as.double(x1), y1 = as.double(y1), weights = as.double(weights),
     pixwidth = as.double(Z$xstep), pixheight = as.double(Z$ystep),
     nx = as.integer(nc), ny = as.integer(nr), out = as.double(numeric(nr *
     nc)), DUP = DUP)
     .C("Cquadform", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     v = as.double(v), y = as.double(numeric(n)), DUP = DUP)
     .C("scantrans", x = as.double(X$x), y = as.double(X$y), n = as.integer(n),
     xmin = as.double(xr[1]), ymin = as.double(yr[1]), xmax = as.double(xr[2]),
     ymax = as.double(yr[2]), nr = as.integer(nr), nc = as.integer(nc),
     R = as.double(r), counts = as.integer(numeric(prod(dimyx))),
     DUP = DUP)
     .C("xysegXint", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     xx = as.double(numeric(n^2)), yy = as.double(numeric(n^2)),
     ti = as.double(numeric(n^2)), tj = as.double(numeric(n^2)),
     ok = as.integer(integer(n^2)), DUP = DUP)
     .C("crsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("wtcrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), wd = as.double(wtsort),
     rmaxi = as.double(cutoff), sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("acrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("awtcrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), wd = as.double(wtsort),
     rmaxi = as.double(cutoff), sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("smoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(npts)), DUP = DUP)
     .C("wtsmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sig = as.double(sd), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("asmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtsmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("Csumouter", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     y = as.double(numeric(p * p)), DUP = DUP)
     .C("Cwsumouter", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     w = as.double(w), y = as.double(numeric(p * p)), DUP = DUP)
     .C("Csumsymouter", x = as.double(x), p = as.integer(p), n = as.integer(n),
     y = as.double(numeric(p * p)), DUP = DUP)
     .C("Cwsumsymouter", x = as.double(x), w = as.double(w), p = as.integer(p),
     n = as.integer(n), y = as.double(numeric(p * p)), DUP = DUP)
     .C("xysi", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), ok = as.integer(integer(na *
     nb)), DUP = DUP)
     .C("xysxi", na = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     ok = as.integer(integer(n * n)), DUP = DUP)
     .C("Corput", base = as.integer(base), n = as.integer(n), result = as.double(numeric(n)),
     DUP = DUP)
     .C("xypsi", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), xsep = as.double(2 *
     max(abs(dx))), ysep = as.double(2 * max(abs(dy))), eps = as.double(eps),
     proper = as.integer(proper), answer = as.integer(integer(1)),
     DUP = DUP)
     .C("Cxypolyselfint", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     xx = as.double(numeric(n^2)), yy = as.double(numeric(n^2)),
     ti = as.double(numeric(n^2)), tj = as.double(numeric(n^2)),
     ok = as.integer(integer(n^2)), DUP = DUP)
    DUP is no longer supported and will be ignored.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-osx-x86_64-clang, r-devel-windows-ix86+x86_64

Version: 1.38-1
Flags: --no-tests
Check: foreign function calls
Result: NOTE
    Calls with DUP != TRUE:
     .C("locxprod", ntest = as.integer(nM), xtest = as.double(xM),
     ytest = as.double(yM), ndata = as.integer(npts), xdata = as.double(xord),
     ydata = as.double(yord), vdata = as.double(vord), nr = as.integer(nr),
     rmax = as.double(rmax), ans = as.double(numeric(nM * nr)),
     DUP = DUP)
     .C("locprod", n = as.integer(npts), x = as.double(xord), y = as.double(yord),
     v = as.double(vord), nr = as.integer(nr), rmax = as.double(rmax),
     ans = as.double(numeric(npts * nr)), DUP = DUP)
     .C("KborderI", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     b = as.double(b), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.integer(integer(nr)), denom = as.integer(integer(nr)),
     DUP = DUP)
     .C("KborderD", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     b = as.double(b), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.double(numeric(nr)), denom = as.double(numeric(nr)),
     DUP = DUP)
     .C("Kwborder", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(weights.Xsort), b = as.double(b), nr = as.integer(nr),
     rmax = as.double(rmax), numer = as.double(numeric(nr)), denom = as.double(numeric(nr)),
     DUP = DUP)
     .C("KnoneI", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), numer = as.integer(integer(nr)),
     DUP = DUP)
     .C("KnoneD", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), numer = as.double(numeric(nr)),
     DUP = DUP)
     .C("Kwnone", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(weights.Xsort), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.double(numeric(nr)), DUP = DUP)
     .C("KrectWtd", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(wt), nr = as.integer(nr), rmax = as.double(rmax),
     trimedge = as.double(trimedge), doIso = as.integer(doIso),
     doTrans = as.integer(doTrans), doBord = as.integer(doBord),
     doUnco = as.integer(doUnco), iso = as.double(ziso), trans = as.double(ztrans),
     bnumer = as.double(zbnumer), bdenom = as.double(zbdenom),
     unco = as.double(zunco), DUP = DUP)
     .C("KrectInt", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), trimedge = as.double(trimedge),
     doIso = as.integer(doIso), doTrans = as.integer(doTrans),
     doBord = as.integer(doBord), doUnco = as.integer(doUnco),
     iso = as.double(ziso), trans = as.double(ztrans), bnumer = as.integer(zbnumer),
     bdenom = as.integer(zbdenom), unco = as.integer(zunco), DUP = DUP)
     .C("KrectDbl", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), trimedge = as.double(trimedge),
     doIso = as.integer(doIso), doTrans = as.integer(doTrans),
     doBord = as.integer(doBord), doUnco = as.integer(doUnco),
     iso = as.double(ziso), trans = as.double(ztrans), bnumer = as.double(zbnumer),
     bdenom = as.double(zbdenom), unco = as.double(zunco), DUP = DUP)
     .C("xysiANY", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), ok = as.integer(integer(1)),
     DUP = DUP)
     .C("areadifs", rad = as.double(r), nrads = as.integer(nr), x = as.double(xshift[close]),
     y = as.double(yshift[close]), nn = as.integer(nclose), ngrid = as.integer(ngrid),
     answer = as.double(numeric(nr)), DUP = DUP)
     .C("areaBdif", rad = as.double(r), nrads = as.integer(nr), x = as.double(xshift[close]),
     y = as.double(yshift[close]), nn = as.integer(nclose), ngrid = as.integer(ngrid),
     x0 = as.double(W$xrange[1] - xu), y0 = as.double(W$yrange[1] -
     yu), x1 = as.double(W$xrange[2] - xu), y1 = as.double(W$yrange[2] -
     yu), answer = as.double(numeric(nr)), DUP = DUP)
     .C("seg2pixI", ns = as.integer(nseg), x0 = as.double(x0), y0 = as.double(y0),
     x1 = as.double(x1), y1 = as.double(y1), nx = as.integer(nc),
     ny = as.integer(nr), out = as.integer(integer(nr * nc)),
     DUP = DUP)
     .C("Cbiform", x = as.double(tx), y = as.double(ty), n = as.integer(n),
     p = as.integer(p), v = as.double(v), z = as.double(numeric(n)),
     DUP = DUP)
     .C("digberJ", r = as.double(rvals), dK = as.double(dK), nr = as.integer(nr),
     nrmax = as.integer(nrmax), ndK = as.integer(ndK), J = as.double(numeric(nrmax)),
     DUP = DUP)
     .C("xysegint", na = as.integer(ns), x0a = as.double(x0s), y0a = as.double(y0s),
     dxa = as.double(dxs), dya = as.double(dys), nb = as.integer(nw),
     x0b = as.double(x0w), y0b = as.double(y0w), dxb = as.double(dxw),
     dyb = as.double(dyw), eps = as.double(eps), xx = as.double(numeric(ns *
     nw)), yy = as.double(numeric(ns * nw)), ta = as.double(numeric(ns *
     nw)), tb = as.double(numeric(ns * nw)), ok = as.integer(integer(ns *
     nw)), DUP = DUP)
     .C("Cclosepaircounts", nxy = as.integer(nX), x = as.double(Xsort$x),
     y = as.double(Xsort$y), rmaxi = as.double(r), counts = as.integer(integer(nX)),
     DUP = DUP)
     .C("Fclosepairs", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("paircount", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), rmaxi = as.double(rmaxplus), count = as.integer(integer(1)),
     DUP = DUP)
     .C("Fclosepairs", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("cocoGraph", nv = as.integer(nv), ne = as.integer(ne), ie = as.integer(ie),
     je = as.integer(je), label = as.integer(integer(nv)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("Ccountends", np = as.integer(np), f = as.double(startfraction),
     seg = as.integer(seg0), r = as.double(r), nv = as.integer(vertices$n),
     xv = as.double(vertices$x), yv = as.double(vertices$y), ns = as.integer(ns),
     from = as.integer(from0), to = as.integer(to0), dpath = as.double(dpath),
     lengths = as.double(lengths), toler = as.double(toler), nendpoints = as.integer(integer(np)),
     DUP = DUP)
     .C("Ccrossdist", nfrom = as.integer(n1), xfrom = as.double(x1),
     yfrom = as.double(y1), nto = as.integer(n2), xto = as.double(x2),
     yto = as.double(y2), squared = as.integer(squared), d = as.double(matrix(0,
     nrow = n1, ncol = n2)), DUP = DUP)
     .C("CcrossPdist", nfrom = as.integer(n1), xfrom = as.double(x1),
     yfrom = as.double(y1), nto = as.integer(n2), xto = as.double(x2),
     yto = as.double(y2), xwidth = as.double(wide), yheight = as.double(high),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = n1,
     ncol = n2)), DUP = DUP)
     .C("lincrossdist", np = as.integer(nX), xp = as.double(P$x),
     yp = as.double(P$y), nq = as.integer(nY), xq = as.double(Q$x),
     yq = as.double(Q$y), nv = as.integer(Lvert$n), xv = as.double(Lvert$x),
     yv = as.double(Lvert$y), ns = as.double(L$n), from = as.integer(from0),
     to = as.integer(to0), dpath = as.double(dpath), psegmap = as.integer(Xsegmap),
     qsegmap = as.integer(Ysegmap), answer = as.double(crossdistmat),
     DUP = DUP)
     .C("D3crossdist", nfrom = as.integer(nX), xfrom = as.double(cX$x),
     yfrom = as.double(cX$y), zfrom = as.double(cX$z), nto = as.integer(nY),
     xto = as.double(cY$x), yto = as.double(cY$y), zto = as.double(cY$z),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = nX,
     ncol = nY)), DUP = DUP)
     .C("D3crossPdist", nfrom = as.integer(nX), xfrom = as.double(cX$x),
     yfrom = as.double(cX$y), zfrom = as.double(cX$z), nto = as.integer(nY),
     xto = as.double(cY$x), yto = as.double(cY$y), zto = as.double(cY$z),
     xwidth = as.double(wide), yheight = as.double(high), zheight = as.double(deep),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = nX,
     ncol = nY)), DUP = DUP)
     .C("xysegint", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), xx = as.double(numeric(na *
     nb)), yy = as.double(numeric(na * nb)), ta = as.double(numeric(na *
     nb)), tb = as.double(numeric(na * nb)), ok = as.integer(integer(na *
     nb)), DUP = DUP)
     .C("Ccrosspaircounts", nnsource = as.integer(nX), xsource = as.double(Xsort$x),
     ysource = as.double(Xsort$y), nntarget = as.integer(nY),
     xtarget = as.double(Ysort$x), ytarget = as.double(Ysort$y),
     rrmax = as.double(r), counts = as.integer(integer(nX)), DUP = DUP)
     .C("crosscount", nn1 = as.integer(X$n), x1 = as.double(Xsort$x),
     y1 = as.double(Xsort$y), nn2 = as.integer(Ysort$n), x2 = as.double(Ysort$x),
     y2 = as.double(Ysort$y), rmaxi = as.double(rmaxplus), count = as.integer(integer(1)),
     DUP = DUP)
     .C("Fcrosspairs", nn1 = as.integer(X$n), x1 = as.double(Xsort$x),
     y1 = as.double(Xsort$y), nn2 = as.integer(Y$n), x2 = as.double(Ysort$x),
     y2 = as.double(Ysort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("crdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), rmaxi = as.double(cutoff), sig = as.double(sd),
     result = as.double(double(nquery)), DUP = DUP)
     .C("wtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("wtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort[, j]), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("acrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("awtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort), rmaxi = as.double(cutoff),
     detsigma = as.double(detSigma), sinv = as.double(flatSinv),
     result = as.double(double(nquery)), DUP = DUP)
     .C("awtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort[, j]), rmaxi = as.double(cutoff),
     detsigma = as.double(detSigma), sinv = as.double(flatSinv),
     result = as.double(double(nquery)), DUP = DUP)
     .C("denspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), result = as.double(double(npts)),
     DUP = DUP)
     .C("wtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), weight = as.double(wtsort),
     result = as.double(double(npts)), DUP = DUP)
     .C("wtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), weight = as.double(wtsort[,
     j]), result = as.double(double(npts)), DUP = DUP)
     .C("adenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), weight = as.double(wtsort[, j]),
     result = as.double(double(npts)), DUP = DUP)
     .C("RcallF3", as.double(w/2), as.double(w/2), as.double(w/2),
     as.integer(1), as.double(0), as.double(w), as.double(0),
     as.double(w), as.double(0), as.double(w), as.double(vside),
     as.double(range[1]), as.double(range[2]), as.integer(nval),
     num = as.integer(integer(nval)), denom = as.integer(integer(nval)),
     as.integer(0), DUP = DUP)
     .C("discareapoly", nc = as.integer(n), xc = as.double(X$x), yc = as.double(X$y),
     nr = as.integer(nr), rmat = as.double(r), nseg = as.integer(Y$n),
     x0 = as.double(Y$ends$x0), y0 = as.double(Y$ends$y0), x1 = as.double(Y$ends$x1),
     y1 = as.double(Y$ends$y1), eps = as.double(.Machine$double.eps),
     out = as.double(numeric(length(r))), DUP = DUP)
     .C("Ddist2dpath", nv = as.integer(n), d = as.double(d), adj = as.integer(adj),
     dpath = as.double(numeric(n * n)), tol = as.double(tol),
     niter = as.integer(integer(1)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("distmapbin", as.double(X$xrange[1]), as.double(X$yrange[1]),
     as.double(X$xrange[2]), as.double(X$yrange[2]), nr = as.integer(nr),
     nc = as.integer(nc), as.logical(t(mat)), distances = as.double(matrix(0,
     ncol = nc + 2, nrow = nr + 2)), boundary = as.double(matrix(0,
     ncol = nc + 2, nrow = nr + 2)), DUP = DUP)
     .C("nndist2segs", xp = as.double(xp), yp = as.double(yp), npoints = as.integer(np),
     x0 = as.double(E$x0), y0 = as.double(E$y0), x1 = as.double(E$x1),
     y1 = as.double(E$y1), nsegments = as.integer(nrow(E)), epsilon = as.double(.Machine$double.eps),
     dist2 = as.double(dist2), index = as.integer(integer(np)),
     DUP = DUP)
     .C("prdist2segs", x = as.double(xp), y = as.double(yp), npoints = as.integer(np),
     x0 = as.double(l[, 1]), y0 = as.double(l[, 2]), x1 = as.double(l[,
     3]), y1 = as.double(l[, 4]), nsegments = as.integer(nl),
     epsilon = as.double(eps), dist2 = as.double(numeric(np *
     nl)), DUP = DUP)
     .C("nndist2segs", xp = as.double(p[, 1]), yp = as.double(p[,
     2]), npoints = as.integer(np), x0 = as.double(l[, 1]), y0 = as.double(l[,
     2]), x1 = as.double(l[, 3]), y1 = as.double(l[, 4]), nsegments = as.integer(nl),
     epsilon = as.double(.Machine$double.eps), dist2 = as.double(dist2),
     index = as.integer(integer(np)), DUP = DUP)
     .C("ripleybox", nx = as.integer(n), x = as.double(x), y = as.double(y),
     rmat = as.double(r), nr = as.integer(Nc), xmin = as.double(W$xrange[1]),
     ymin = as.double(W$yrange[1]), xmax = as.double(W$xrange[2]),
     ymax = as.double(W$yrange[2]), epsilon = as.double(.Machine$double.eps),
     out = as.double(numeric(Nr * Nc)), DUP = DUP)
     .C("ripleypoly", nc = as.integer(n), xc = as.double(x), yc = as.double(y),
     nr = as.integer(Nc), rmat = as.double(r), nseg = as.integer(Y$n),
     x0 = as.double(Y$ends$x0), y0 = as.double(Y$ends$y0), x1 = as.double(Y$ends$x1),
     y1 = as.double(Y$ends$y1), out = as.double(numeric(Nr * Nc)),
     DUP = DUP)
     .C("ps_exact_dt_R", as.double(w$xrange[1]), as.double(w$yrange[1]),
     as.double(w$xrange[2]), as.double(w$yrange[2]), nr = as.integer(nr),
     nc = as.integer(nc), mr = as.integer(mr), mc = as.integer(mc),
     inp = as.integer(t(x)), distances = as.double(double(N)),
     rows = as.integer(integer(N)), cols = as.integer(integer(N)),
     boundary = as.double(double(N)), DUP = DUP)
     .C("exact_dt_R", as.double(X$x), as.double(X$y), as.integer(X$n),
     as.double(w$xrange[1]), as.double(w$yrange[1]), as.double(w$xrange[2]),
     as.double(w$yrange[2]), nr = as.integer(nr), nc = as.integer(nc),
     mr = as.integer(mr), mc = as.integer(mc), distances = as.double(double(N)),
     indices = as.integer(integer(N)), boundary = as.double(double(N)),
     DUP = DUP)
     .C("RcallF3cen", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(vside), as.double(0), as.double(rmax), m = as.integer(nrval),
     obs = as.integer(integer(nrval)), nco = as.integer(integer(nrval)),
     cen = as.integer(integer(nrval)), ncc = as.integer(integer(nrval)),
     upperobs = as.integer(integer(1)), uppercen = as.integer(integer(1)),
     DUP = DUP)
     .C("RcallF3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(vside), as.double(range[1]), as.double(range[2]),
     m = as.integer(nval), num = as.integer(integer(nval)), denom = as.integer(integer(nval)),
     as.integer(code), DUP = DUP)
     .C("RcallG3cen", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), m = as.integer(nrval), obs = as.integer(integer(nrval)),
     nco = as.integer(integer(nrval)), cen = as.integer(integer(nrval)),
     ncc = as.integer(integer(nrval)), upperobs = as.integer(integer(1)),
     uppercen = as.integer(integer(1)), DUP = DUP)
     .C("RcallG3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     as.integer(code), DUP = DUP)
     .C("Egeyer", nnquad = as.integer(nU), xquad = as.double(Usort$x),
     yquad = as.double(Usort$y), quadtodata = as.integer(Cmap),
     nndata = as.integer(nX), xdata = as.double(Xsort$x), ydata = as.double(Xsort$y),
     tdata = as.integer(Xcountsort), rrmax = as.double(r), ssat = as.double(sat),
     result = as.double(numeric(nU)), DUP = DUP)
     .C("Cidw", x = as.double(X$x), y = as.double(X$y), v = as.double(marx),
     n = as.integer(npoints(X)), xstart = as.double(W$xcol[1]),
     xstep = as.double(W$xstep), nx = as.integer(dim[2]), ystart = as.double(W$yrow[1]),
     ystep = as.double(W$ystep), ny = as.integer(dim[1]), power = as.double(power),
     num = as.double(numeric(npixels)), den = as.double(numeric(npixels)),
     rat = as.double(numeric(npixels)), DUP = DUP)
     .C("idwloo", x = as.double(X$x), y = as.double(X$y), v = as.double(marx),
     n = as.integer(npts), power = as.double(power), num = as.double(numeric(npts)),
     den = as.double(numeric(npts)), rat = as.double(numeric(npts)),
     DUP = DUP)
     .C("Cmatchxy", na = as.integer(npts), xa = as.double(x), ya = as.double(y),
     nb = as.integer(nedges), xb = as.double(xp), yb = as.double(yp),
     match = as.integer(integer(npts)), DUP = DUP)
     .C("RcallK3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     as.integer(code), DUP = DUP)
     .C("locpcfx", nn1 = as.integer(nY), x1 = as.double(Ysort$x),
     y1 = as.double(Ysort$y), id1 = as.integer(idYsort), nn2 = as.integer(nX),
     x2 = as.double(Xsort$x), y2 = as.double(Xsort$y), id2 = as.integer(idXsort),
     nnr = as.integer(nr), rmaxi = as.double(rmax), del = as.double(delta),
     pcf = as.double(double(nr * nY)), DUP = DUP)
     .C("locWpcfx", nn1 = as.integer(nY), x1 = as.double(Ysort$x),
     y1 = as.double(Ysort$y), id1 = as.integer(idYsort), nn2 = as.integer(nX),
     x2 = as.double(Xsort$x), y2 = as.double(Xsort$y), id2 = as.integer(idXsort),
     w2 = as.double(weightXsort), nnr = as.integer(nr), rmaxi = as.double(rmax),
     del = as.double(delta), pcf = as.double(double(nr * nY)),
     DUP = DUP)
     .C("maxnnd2", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     as.double(big), result = as.double(numeric(1)), DUP = DUP)
     .C("minnnd2", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     as.double(big), result = as.double(numeric(1)), DUP = DUP)
     .C("nnX3Dinterface", n1 = as.integer(nX), x1 = as.double(XX[,
     1]), y1 = as.double(XX[, 2]), z1 = as.double(XX[, 3]), id1 = as.integer(iX),
     n2 = as.integer(nY), x2 = as.double(YY[, 1]), y2 = as.double(YY[,
     2]), z2 = as.double(YY[, 3]), id2 = as.integer(iY), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnX3Dinterface", n1 = as.integer(nX), x1 = as.double(XX[,
     1]), y1 = as.double(XX[, 2]), z1 = as.double(XX[, 3]), id1 = as.integer(iX),
     n2 = as.integer(nY), x2 = as.double(YY[, 1]), y2 = as.double(YY[,
     2]), z2 = as.double(YY[, 3]), id2 = as.integer(iY), kmax = as.integer(kmaxcalc),
     exclude = as.integer(exclude), wantdist = as.integer(want.dist),
     wantwhich = as.integer(want.which), nnd = as.double(nndv),
     nnwhich = as.integer(nnwh), huge = as.double(huge), DUP = DUP)
     .C("nnXinterface", n1 = as.integer(nX), x1 = as.double(Xx), y1 = as.double(Xy),
     id1 = as.integer(iX), n2 = as.integer(nY), x2 = as.double(Yx),
     y2 = as.double(Yy), id2 = as.integer(iY), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnXinterface", n1 = as.integer(nX), x1 = as.double(Xx),
     y1 = as.double(Xy), id1 = as.integer(iX), n2 = as.integer(nY),
     x2 = as.double(Yx), y2 = as.double(Yy), id2 = as.integer(iY),
     kmax = as.integer(kmaxcalc), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("nndistsort", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     nnd = as.double(nnd), as.double(big), DUP = DUP)
     .C("knndsort", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), nnd = as.double(nnd),
     huge = as.double(big), DUP = DUP)
     .C("nnd3D", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     z = as.double(z[o]), nnd = as.double(nnd), nnwhich = as.integer(integer(1)),
     huge = as.double(big), DUP = DUP)
     .C("knnd3D", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), z = as.double(z[o]),
     nnd = as.double(nnd), nnwhich = as.integer(integer(1)), huge = as.double(big),
     DUP = DUP)
     .C("nndMD", n = as.integer(n), m = as.integer(m), x = as.double(t(coo[o,
     ])), nnd = as.double(nnd), as.double(big), DUP = DUP)
     .C("knndMD", n = as.integer(n), m = as.integer(m), kmax = as.integer(kmaxcalc),
     x = as.double(t(coo[o, ])), nnd = as.double(nnd), huge = as.double(big),
     DUP = DUP)
     .C("nnGinterface", nx = as.integer(nxcol), x0 = as.double(M$xcol[1]),
     xstep = as.double(M$xstep), ny = as.integer(nyrow), y0 = as.double(M$yrow[1]),
     ystep = as.double(M$ystep), np = as.integer(nX), xp = as.double(xx),
     yp = as.double(yy), wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnGinterface", nx = as.integer(nxcol), x0 = as.double(M$xcol[1]),
     xstep = as.double(M$xstep), ny = as.integer(nyrow), y0 = as.double(M$yrow[1]),
     ystep = as.double(M$ystep), np = as.integer(nX), xp = as.double(xx),
     yp = as.double(yy), kmax = as.integer(kmaxcalc), wantdist = as.integer(want.dist),
     wantwhich = as.integer(want.which), nnd = as.double(nndv),
     nnwhich = as.integer(nnwh), huge = as.double(huge), DUP = DUP)
     .C("nnwhichsort", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     nnwhich = as.integer(nnw), huge = as.double(big), DUP = DUP)
     .C("knnsort", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), nnd = as.double(numeric(n *
     kmaxcalc)), nnwhich = as.integer(nnw), huge = as.double(big),
     DUP = DUP)
     .C("nnw3D", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     z = as.double(z[o]), nnd = as.double(numeric(1)), nnwhich = as.integer(nnw),
     huge = as.double(big), DUP = DUP)
     .C("knnw3D", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), z = as.double(z[o]),
     nnd = as.double(numeric(1)), nnwhich = as.integer(nnw), huge = as.double(big),
     DUP = DUP)
     .C("nnwMD", n = as.integer(n), m = as.integer(m), x = as.double(t(coo[o,
     ])), nnd = as.double(numeric(n)), nnwhich = as.integer(nnw),
     huge = as.double(big), DUP = DUP)
     .C("knnwMD", n = as.integer(n), m = as.integer(m), kmax = as.integer(kmaxcalc),
     x = as.double(t(coo[o, ])), nnd = as.double(numeric(n * kmaxcalc)),
     nnwhich = as.integer(nnw), huge = as.double(big), DUP = DUP)
     .C("Cpairdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     squared = as.integer(squared), d = as.double(d), DUP = DUP)
     .C("CpairPdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     xwidth = as.double(wide), yheight = as.double(high), squared = as.integer(squared),
     d = as.double(d), DUP = DUP)
     .C("linpairdist", np = as.integer(n), xp = as.double(Y$x), yp = as.double(Y$y),
     nv = as.integer(Lvert$n), xv = as.double(Lvert$x), yv = as.double(Lvert$y),
     ns = as.double(L$n), from = as.integer(from0), to = as.integer(to0),
     dpath = as.double(dpath), segmap = as.integer(segmap), answer = as.double(pairdistmat),
     DUP = DUP)
     .C("D3pairdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     z = as.double(z), squared = as.integer(squared), d = as.double(numeric(n *
     n)), DUP = DUP)
     .C("D3pairPdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     z = as.double(z), xwidth = as.double(wide), yheight = as.double(high),
     zdepth = as.double(deep), squared = as.integer(squared),
     d = as.double(numeric(n * n)), DUP = DUP)
     .C("Rcallpcf3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     method = as.integer(code), delta = as.double(delta), DUP = DUP)
     .C("poly2imA", ncol = as.integer(nx), nrow = as.integer(ny),
     xpoly = as.double(xx), ypoly = as.double(yy), npoly = as.integer(nn),
     out = as.double(numeric(nx * ny)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("seg2pixL", ns = as.integer(nseg), x0 = as.double(x0), y0 = as.double(y0),
     x1 = as.double(x1), y1 = as.double(y1), weights = as.double(weights),
     pixwidth = as.double(Z$xstep), pixheight = as.double(Z$ystep),
     nx = as.integer(nc), ny = as.integer(nr), out = as.double(numeric(nr *
     nc)), DUP = DUP)
     .C("Cquadform", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     v = as.double(v), y = as.double(numeric(n)), DUP = DUP)
     .C("scantrans", x = as.double(X$x), y = as.double(X$y), n = as.integer(n),
     xmin = as.double(xr[1]), ymin = as.double(yr[1]), xmax = as.double(xr[2]),
     ymax = as.double(yr[2]), nr = as.integer(nr), nc = as.integer(nc),
     R = as.double(r), counts = as.integer(numeric(prod(dimyx))),
     DUP = DUP)
     .C("xysegXint", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     xx = as.double(numeric(n^2)), yy = as.double(numeric(n^2)),
     ti = as.double(numeric(n^2)), tj = as.double(numeric(n^2)),
     ok = as.integer(integer(n^2)), DUP = DUP)
     .C("crsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("wtcrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), wd = as.double(wtsort),
     rmaxi = as.double(cutoff), sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("acrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("awtcrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), wd = as.double(wtsort),
     rmaxi = as.double(cutoff), sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("smoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(npts)), DUP = DUP)
     .C("wtsmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sig = as.double(sd), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("asmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtsmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("Csumouter", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     y = as.double(numeric(p * p)), DUP = DUP)
     .C("Cwsumouter", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     w = as.double(w), y = as.double(numeric(p * p)), DUP = DUP)
     .C("Csumsymouter", x = as.double(x), p = as.integer(p), n = as.integer(n),
     y = as.double(numeric(p * p)), DUP = DUP)
     .C("Cwsumsymouter", x = as.double(x), w = as.double(w), p = as.integer(p),
     n = as.integer(n), y = as.double(numeric(p * p)), DUP = DUP)
     .C("xysi", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), ok = as.integer(integer(na *
     nb)), DUP = DUP)
     .C("xysxi", na = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     ok = as.integer(integer(n * n)), DUP = DUP)
     .C("Corput", base = as.integer(base), n = as.integer(n), result = as.double(numeric(n)),
     DUP = DUP)
     .C("xypsi", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), xsep = as.double(2 *
     max(abs(dx))), ysep = as.double(2 * max(abs(dy))), eps = as.double(eps),
     proper = as.integer(proper), answer = as.integer(integer(1)),
     DUP = DUP)
     .C("Cxypolyselfint", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     xx = as.double(numeric(n^2)), yy = as.double(numeric(n^2)),
     ti = as.double(numeric(n^2)), tj = as.double(numeric(n^2)),
     ok = as.integer(integer(n^2)), DUP = DUP)
    DUP = FALSE is deprecated and will be disabled in future versions of R.
Flavor: r-patched-linux-x86_64

Version: 1.38-1
Check: foreign function calls
Result: NOTE
    Calls with DUP != TRUE:
     .C("locxprod", ntest = as.integer(nM), xtest = as.double(xM),
     ytest = as.double(yM), ndata = as.integer(npts), xdata = as.double(xord),
     ydata = as.double(yord), vdata = as.double(vord), nr = as.integer(nr),
     rmax = as.double(rmax), ans = as.double(numeric(nM * nr)),
     DUP = DUP)
     .C("locprod", n = as.integer(npts), x = as.double(xord), y = as.double(yord),
     v = as.double(vord), nr = as.integer(nr), rmax = as.double(rmax),
     ans = as.double(numeric(npts * nr)), DUP = DUP)
     .C("KborderI", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     b = as.double(b), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.integer(integer(nr)), denom = as.integer(integer(nr)),
     DUP = DUP)
     .C("KborderD", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     b = as.double(b), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.double(numeric(nr)), denom = as.double(numeric(nr)),
     DUP = DUP)
     .C("Kwborder", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(weights.Xsort), b = as.double(b), nr = as.integer(nr),
     rmax = as.double(rmax), numer = as.double(numeric(nr)), denom = as.double(numeric(nr)),
     DUP = DUP)
     .C("KnoneI", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), numer = as.integer(integer(nr)),
     DUP = DUP)
     .C("KnoneD", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), numer = as.double(numeric(nr)),
     DUP = DUP)
     .C("Kwnone", nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(weights.Xsort), nr = as.integer(nr), rmax = as.double(rmax),
     numer = as.double(numeric(nr)), DUP = DUP)
     .C("KrectWtd", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     w = as.double(wt), nr = as.integer(nr), rmax = as.double(rmax),
     trimedge = as.double(trimedge), doIso = as.integer(doIso),
     doTrans = as.integer(doTrans), doBord = as.integer(doBord),
     doUnco = as.integer(doUnco), iso = as.double(ziso), trans = as.double(ztrans),
     bnumer = as.double(zbnumer), bdenom = as.double(zbdenom),
     unco = as.double(zunco), DUP = DUP)
     .C("KrectInt", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), trimedge = as.double(trimedge),
     doIso = as.integer(doIso), doTrans = as.integer(doTrans),
     doBord = as.integer(doBord), doUnco = as.integer(doUnco),
     iso = as.double(ziso), trans = as.double(ztrans), bnumer = as.integer(zbnumer),
     bdenom = as.integer(zbdenom), unco = as.integer(zunco), DUP = DUP)
     .C("KrectDbl", width = as.double(width), height = as.double(height),
     nxy = as.integer(npts), x = as.double(x), y = as.double(y),
     nr = as.integer(nr), rmax = as.double(rmax), trimedge = as.double(trimedge),
     doIso = as.integer(doIso), doTrans = as.integer(doTrans),
     doBord = as.integer(doBord), doUnco = as.integer(doUnco),
     iso = as.double(ziso), trans = as.double(ztrans), bnumer = as.double(zbnumer),
     bdenom = as.double(zbdenom), unco = as.double(zunco), DUP = DUP)
     .C("xysiANY", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), ok = as.integer(integer(1)),
     DUP = DUP)
     .C("areadifs", rad = as.double(r), nrads = as.integer(nr), x = as.double(xshift[close]),
     y = as.double(yshift[close]), nn = as.integer(nclose), ngrid = as.integer(ngrid),
     answer = as.double(numeric(nr)), DUP = DUP)
     .C("areaBdif", rad = as.double(r), nrads = as.integer(nr), x = as.double(xshift[close]),
     y = as.double(yshift[close]), nn = as.integer(nclose), ngrid = as.integer(ngrid),
     x0 = as.double(W$xrange[1] - xu), y0 = as.double(W$yrange[1] -
     yu), x1 = as.double(W$xrange[2] - xu), y1 = as.double(W$yrange[2] -
     yu), answer = as.double(numeric(nr)), DUP = DUP)
     .C("seg2pixI", ns = as.integer(nseg), x0 = as.double(x0), y0 = as.double(y0),
     x1 = as.double(x1), y1 = as.double(y1), nx = as.integer(nc),
     ny = as.integer(nr), out = as.integer(integer(nr * nc)),
     DUP = DUP)
     .C("Cbiform", x = as.double(tx), y = as.double(ty), n = as.integer(n),
     p = as.integer(p), v = as.double(v), z = as.double(numeric(n)),
     DUP = DUP)
     .C("digberJ", r = as.double(rvals), dK = as.double(dK), nr = as.integer(nr),
     nrmax = as.integer(nrmax), ndK = as.integer(ndK), J = as.double(numeric(nrmax)),
     DUP = DUP)
     .C("xysegint", na = as.integer(ns), x0a = as.double(x0s), y0a = as.double(y0s),
     dxa = as.double(dxs), dya = as.double(dys), nb = as.integer(nw),
     x0b = as.double(x0w), y0b = as.double(y0w), dxb = as.double(dxw),
     dyb = as.double(dyw), eps = as.double(eps), xx = as.double(numeric(ns *
     nw)), yy = as.double(numeric(ns * nw)), ta = as.double(numeric(ns *
     nw)), tb = as.double(numeric(ns * nw)), ok = as.integer(integer(ns *
     nw)), DUP = DUP)
     .C("Cclosepaircounts", nxy = as.integer(nX), x = as.double(Xsort$x),
     y = as.double(Xsort$y), rmaxi = as.double(r), counts = as.integer(integer(nX)),
     DUP = DUP)
     .C("Fclosepairs", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("paircount", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), rmaxi = as.double(rmaxplus), count = as.integer(integer(1)),
     DUP = DUP)
     .C("Fclosepairs", nxy = as.integer(npts), x = as.double(Xsort$x),
     y = as.double(Xsort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("cocoGraph", nv = as.integer(nv), ne = as.integer(ne), ie = as.integer(ie),
     je = as.integer(je), label = as.integer(integer(nv)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("Ccountends", np = as.integer(np), f = as.double(startfraction),
     seg = as.integer(seg0), r = as.double(r), nv = as.integer(vertices$n),
     xv = as.double(vertices$x), yv = as.double(vertices$y), ns = as.integer(ns),
     from = as.integer(from0), to = as.integer(to0), dpath = as.double(dpath),
     lengths = as.double(lengths), toler = as.double(toler), nendpoints = as.integer(integer(np)),
     DUP = DUP)
     .C("Ccrossdist", nfrom = as.integer(n1), xfrom = as.double(x1),
     yfrom = as.double(y1), nto = as.integer(n2), xto = as.double(x2),
     yto = as.double(y2), squared = as.integer(squared), d = as.double(matrix(0,
     nrow = n1, ncol = n2)), DUP = DUP)
     .C("CcrossPdist", nfrom = as.integer(n1), xfrom = as.double(x1),
     yfrom = as.double(y1), nto = as.integer(n2), xto = as.double(x2),
     yto = as.double(y2), xwidth = as.double(wide), yheight = as.double(high),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = n1,
     ncol = n2)), DUP = DUP)
     .C("lincrossdist", np = as.integer(nX), xp = as.double(P$x),
     yp = as.double(P$y), nq = as.integer(nY), xq = as.double(Q$x),
     yq = as.double(Q$y), nv = as.integer(Lvert$n), xv = as.double(Lvert$x),
     yv = as.double(Lvert$y), ns = as.double(L$n), from = as.integer(from0),
     to = as.integer(to0), dpath = as.double(dpath), psegmap = as.integer(Xsegmap),
     qsegmap = as.integer(Ysegmap), answer = as.double(crossdistmat),
     DUP = DUP)
     .C("D3crossdist", nfrom = as.integer(nX), xfrom = as.double(cX$x),
     yfrom = as.double(cX$y), zfrom = as.double(cX$z), nto = as.integer(nY),
     xto = as.double(cY$x), yto = as.double(cY$y), zto = as.double(cY$z),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = nX,
     ncol = nY)), DUP = DUP)
     .C("D3crossPdist", nfrom = as.integer(nX), xfrom = as.double(cX$x),
     yfrom = as.double(cX$y), zfrom = as.double(cX$z), nto = as.integer(nY),
     xto = as.double(cY$x), yto = as.double(cY$y), zto = as.double(cY$z),
     xwidth = as.double(wide), yheight = as.double(high), zheight = as.double(deep),
     squared = as.integer(squared), d = as.double(matrix(0, nrow = nX,
     ncol = nY)), DUP = DUP)
     .C("xysegint", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), xx = as.double(numeric(na *
     nb)), yy = as.double(numeric(na * nb)), ta = as.double(numeric(na *
     nb)), tb = as.double(numeric(na * nb)), ok = as.integer(integer(na *
     nb)), DUP = DUP)
     .C("Ccrosspaircounts", nnsource = as.integer(nX), xsource = as.double(Xsort$x),
     ysource = as.double(Xsort$y), nntarget = as.integer(nY),
     xtarget = as.double(Ysort$x), ytarget = as.double(Ysort$y),
     rrmax = as.double(r), counts = as.integer(integer(nX)), DUP = DUP)
     .C("crosscount", nn1 = as.integer(X$n), x1 = as.double(Xsort$x),
     y1 = as.double(Xsort$y), nn2 = as.integer(Ysort$n), x2 = as.double(Ysort$x),
     y2 = as.double(Ysort$y), rmaxi = as.double(rmaxplus), count = as.integer(integer(1)),
     DUP = DUP)
     .C("Fcrosspairs", nn1 = as.integer(X$n), x1 = as.double(Xsort$x),
     y1 = as.double(Xsort$y), nn2 = as.integer(Y$n), x2 = as.double(Ysort$x),
     y2 = as.double(Ysort$y), r = as.double(rmax), noutmax = as.integer(nsize),
     nout = as.integer(integer(1)), iout = as.integer(integer(nsize)),
     jout = as.integer(integer(nsize)), xiout = as.double(numeric(nsize)),
     yiout = as.double(numeric(nsize)), xjout = as.double(numeric(nsize)),
     yjout = as.double(numeric(nsize)), dxout = as.double(numeric(nsize)),
     dyout = as.double(numeric(nsize)), dout = as.double(numeric(nsize)),
     status = as.integer(integer(1)), DUP = DUP)
     .C("crdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), rmaxi = as.double(cutoff), sig = as.double(sd),
     result = as.double(double(nquery)), DUP = DUP)
     .C("wtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("wtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort[, j]), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("acrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("awtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort), rmaxi = as.double(cutoff),
     detsigma = as.double(detSigma), sinv = as.double(flatSinv),
     result = as.double(double(nquery)), DUP = DUP)
     .C("awtcrdenspt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), wd = as.double(wtsort[, j]), rmaxi = as.double(cutoff),
     detsigma = as.double(detSigma), sinv = as.double(flatSinv),
     result = as.double(double(nquery)), DUP = DUP)
     .C("denspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), result = as.double(double(npts)),
     DUP = DUP)
     .C("wtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), weight = as.double(wtsort),
     result = as.double(double(npts)), DUP = DUP)
     .C("wtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), sig = as.double(sd), weight = as.double(wtsort[,
     j]), result = as.double(double(npts)), DUP = DUP)
     .C("adenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtdenspt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     rmaxi = as.double(cutoff), detsigma = as.double(detSigma),
     sinv = as.double(flatSinv), weight = as.double(wtsort[, j]),
     result = as.double(double(npts)), DUP = DUP)
     .C("RcallF3", as.double(w/2), as.double(w/2), as.double(w/2),
     as.integer(1), as.double(0), as.double(w), as.double(0),
     as.double(w), as.double(0), as.double(w), as.double(vside),
     as.double(range[1]), as.double(range[2]), as.integer(nval),
     num = as.integer(integer(nval)), denom = as.integer(integer(nval)),
     as.integer(0), DUP = DUP)
     .C("discareapoly", nc = as.integer(n), xc = as.double(X$x), yc = as.double(X$y),
     nr = as.integer(nr), rmat = as.double(r), nseg = as.integer(Y$n),
     x0 = as.double(Y$ends$x0), y0 = as.double(Y$ends$y0), x1 = as.double(Y$ends$x1),
     y1 = as.double(Y$ends$y1), eps = as.double(.Machine$double.eps),
     out = as.double(numeric(length(r))), DUP = DUP)
     .C("Ddist2dpath", nv = as.integer(n), d = as.double(d), adj = as.integer(adj),
     dpath = as.double(numeric(n * n)), tol = as.double(tol),
     niter = as.integer(integer(1)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("distmapbin", as.double(X$xrange[1]), as.double(X$yrange[1]),
     as.double(X$xrange[2]), as.double(X$yrange[2]), nr = as.integer(nr),
     nc = as.integer(nc), as.logical(t(mat)), distances = as.double(matrix(0,
     ncol = nc + 2, nrow = nr + 2)), boundary = as.double(matrix(0,
     ncol = nc + 2, nrow = nr + 2)), DUP = DUP)
     .C("nndist2segs", xp = as.double(xp), yp = as.double(yp), npoints = as.integer(np),
     x0 = as.double(E$x0), y0 = as.double(E$y0), x1 = as.double(E$x1),
     y1 = as.double(E$y1), nsegments = as.integer(nrow(E)), epsilon = as.double(.Machine$double.eps),
     dist2 = as.double(dist2), index = as.integer(integer(np)),
     DUP = DUP)
     .C("prdist2segs", x = as.double(xp), y = as.double(yp), npoints = as.integer(np),
     x0 = as.double(l[, 1]), y0 = as.double(l[, 2]), x1 = as.double(l[,
     3]), y1 = as.double(l[, 4]), nsegments = as.integer(nl),
     epsilon = as.double(eps), dist2 = as.double(numeric(np *
     nl)), DUP = DUP)
     .C("nndist2segs", xp = as.double(p[, 1]), yp = as.double(p[,
     2]), npoints = as.integer(np), x0 = as.double(l[, 1]), y0 = as.double(l[,
     2]), x1 = as.double(l[, 3]), y1 = as.double(l[, 4]), nsegments = as.integer(nl),
     epsilon = as.double(.Machine$double.eps), dist2 = as.double(dist2),
     index = as.integer(integer(np)), DUP = DUP)
     .C("ripleybox", nx = as.integer(n), x = as.double(x), y = as.double(y),
     rmat = as.double(r), nr = as.integer(Nc), xmin = as.double(W$xrange[1]),
     ymin = as.double(W$yrange[1]), xmax = as.double(W$xrange[2]),
     ymax = as.double(W$yrange[2]), epsilon = as.double(.Machine$double.eps),
     out = as.double(numeric(Nr * Nc)), DUP = DUP)
     .C("ripleypoly", nc = as.integer(n), xc = as.double(x), yc = as.double(y),
     nr = as.integer(Nc), rmat = as.double(r), nseg = as.integer(Y$n),
     x0 = as.double(Y$ends$x0), y0 = as.double(Y$ends$y0), x1 = as.double(Y$ends$x1),
     y1 = as.double(Y$ends$y1), out = as.double(numeric(Nr * Nc)),
     DUP = DUP)
     .C("ps_exact_dt_R", as.double(w$xrange[1]), as.double(w$yrange[1]),
     as.double(w$xrange[2]), as.double(w$yrange[2]), nr = as.integer(nr),
     nc = as.integer(nc), mr = as.integer(mr), mc = as.integer(mc),
     inp = as.integer(t(x)), distances = as.double(double(N)),
     rows = as.integer(integer(N)), cols = as.integer(integer(N)),
     boundary = as.double(double(N)), DUP = DUP)
     .C("exact_dt_R", as.double(X$x), as.double(X$y), as.integer(X$n),
     as.double(w$xrange[1]), as.double(w$yrange[1]), as.double(w$xrange[2]),
     as.double(w$yrange[2]), nr = as.integer(nr), nc = as.integer(nc),
     mr = as.integer(mr), mc = as.integer(mc), distances = as.double(double(N)),
     indices = as.integer(integer(N)), boundary = as.double(double(N)),
     DUP = DUP)
     .C("RcallF3cen", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(vside), as.double(0), as.double(rmax), m = as.integer(nrval),
     obs = as.integer(integer(nrval)), nco = as.integer(integer(nrval)),
     cen = as.integer(integer(nrval)), ncc = as.integer(integer(nrval)),
     upperobs = as.integer(integer(1)), uppercen = as.integer(integer(1)),
     DUP = DUP)
     .C("RcallF3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(vside), as.double(range[1]), as.double(range[2]),
     m = as.integer(nval), num = as.integer(integer(nval)), denom = as.integer(integer(nval)),
     as.integer(code), DUP = DUP)
     .C("RcallG3cen", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), m = as.integer(nrval), obs = as.integer(integer(nrval)),
     nco = as.integer(integer(nrval)), cen = as.integer(integer(nrval)),
     ncc = as.integer(integer(nrval)), upperobs = as.integer(integer(1)),
     uppercen = as.integer(integer(1)), DUP = DUP)
     .C("RcallG3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     as.integer(code), DUP = DUP)
     .C("Egeyer", nnquad = as.integer(nU), xquad = as.double(Usort$x),
     yquad = as.double(Usort$y), quadtodata = as.integer(Cmap),
     nndata = as.integer(nX), xdata = as.double(Xsort$x), ydata = as.double(Xsort$y),
     tdata = as.integer(Xcountsort), rrmax = as.double(r), ssat = as.double(sat),
     result = as.double(numeric(nU)), DUP = DUP)
     .C("Cidw", x = as.double(X$x), y = as.double(X$y), v = as.double(marx),
     n = as.integer(npoints(X)), xstart = as.double(W$xcol[1]),
     xstep = as.double(W$xstep), nx = as.integer(dim[2]), ystart = as.double(W$yrow[1]),
     ystep = as.double(W$ystep), ny = as.integer(dim[1]), power = as.double(power),
     num = as.double(numeric(npixels)), den = as.double(numeric(npixels)),
     rat = as.double(numeric(npixels)), DUP = DUP)
     .C("idwloo", x = as.double(X$x), y = as.double(X$y), v = as.double(marx),
     n = as.integer(npts), power = as.double(power), num = as.double(numeric(npts)),
     den = as.double(numeric(npts)), rat = as.double(numeric(npts)),
     DUP = DUP)
     .C("Cmatchxy", na = as.integer(npts), xa = as.double(x), ya = as.double(y),
     nb = as.integer(nedges), xb = as.double(xp), yb = as.double(yp),
     match = as.integer(integer(npts)), DUP = DUP)
     .C("RcallK3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     as.integer(code), DUP = DUP)
     .C("locpcfx", nn1 = as.integer(nY), x1 = as.double(Ysort$x),
     y1 = as.double(Ysort$y), id1 = as.integer(idYsort), nn2 = as.integer(nX),
     x2 = as.double(Xsort$x), y2 = as.double(Xsort$y), id2 = as.integer(idXsort),
     nnr = as.integer(nr), rmaxi = as.double(rmax), del = as.double(delta),
     pcf = as.double(double(nr * nY)), DUP = DUP)
     .C("locWpcfx", nn1 = as.integer(nY), x1 = as.double(Ysort$x),
     y1 = as.double(Ysort$y), id1 = as.integer(idYsort), nn2 = as.integer(nX),
     x2 = as.double(Xsort$x), y2 = as.double(Xsort$y), id2 = as.integer(idXsort),
     w2 = as.double(weightXsort), nnr = as.integer(nr), rmaxi = as.double(rmax),
     del = as.double(delta), pcf = as.double(double(nr * nY)),
     DUP = DUP)
     .C("maxnnd2", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     as.double(big), result = as.double(numeric(1)), DUP = DUP)
     .C("minnnd2", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     as.double(big), result = as.double(numeric(1)), DUP = DUP)
     .C("nnX3Dinterface", n1 = as.integer(nX), x1 = as.double(XX[,
     1]), y1 = as.double(XX[, 2]), z1 = as.double(XX[, 3]), id1 = as.integer(iX),
     n2 = as.integer(nY), x2 = as.double(YY[, 1]), y2 = as.double(YY[,
     2]), z2 = as.double(YY[, 3]), id2 = as.integer(iY), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnX3Dinterface", n1 = as.integer(nX), x1 = as.double(XX[,
     1]), y1 = as.double(XX[, 2]), z1 = as.double(XX[, 3]), id1 = as.integer(iX),
     n2 = as.integer(nY), x2 = as.double(YY[, 1]), y2 = as.double(YY[,
     2]), z2 = as.double(YY[, 3]), id2 = as.integer(iY), kmax = as.integer(kmaxcalc),
     exclude = as.integer(exclude), wantdist = as.integer(want.dist),
     wantwhich = as.integer(want.which), nnd = as.double(nndv),
     nnwhich = as.integer(nnwh), huge = as.double(huge), DUP = DUP)
     .C("nnXinterface", n1 = as.integer(nX), x1 = as.double(Xx), y1 = as.double(Xy),
     id1 = as.integer(iX), n2 = as.integer(nY), x2 = as.double(Yx),
     y2 = as.double(Yy), id2 = as.integer(iY), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnXinterface", n1 = as.integer(nX), x1 = as.double(Xx),
     y1 = as.double(Xy), id1 = as.integer(iX), n2 = as.integer(nY),
     x2 = as.double(Yx), y2 = as.double(Yy), id2 = as.integer(iY),
     kmax = as.integer(kmaxcalc), exclude = as.integer(exclude),
     wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("nndistsort", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     nnd = as.double(nnd), as.double(big), DUP = DUP)
     .C("knndsort", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), nnd = as.double(nnd),
     huge = as.double(big), DUP = DUP)
     .C("nnd3D", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     z = as.double(z[o]), nnd = as.double(nnd), nnwhich = as.integer(integer(1)),
     huge = as.double(big), DUP = DUP)
     .C("knnd3D", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), z = as.double(z[o]),
     nnd = as.double(nnd), nnwhich = as.integer(integer(1)), huge = as.double(big),
     DUP = DUP)
     .C("nndMD", n = as.integer(n), m = as.integer(m), x = as.double(t(coo[o,
     ])), nnd = as.double(nnd), as.double(big), DUP = DUP)
     .C("knndMD", n = as.integer(n), m = as.integer(m), kmax = as.integer(kmaxcalc),
     x = as.double(t(coo[o, ])), nnd = as.double(nnd), huge = as.double(big),
     DUP = DUP)
     .C("nnGinterface", nx = as.integer(nxcol), x0 = as.double(M$xcol[1]),
     xstep = as.double(M$xstep), ny = as.integer(nyrow), y0 = as.double(M$yrow[1]),
     ystep = as.double(M$ystep), np = as.integer(nX), xp = as.double(xx),
     yp = as.double(yy), wantdist = as.integer(want.dist), wantwhich = as.integer(want.which),
     nnd = as.double(nndv), nnwhich = as.integer(nnwh), huge = as.double(huge),
     DUP = DUP)
     .C("knnGinterface", nx = as.integer(nxcol), x0 = as.double(M$xcol[1]),
     xstep = as.double(M$xstep), ny = as.integer(nyrow), y0 = as.double(M$yrow[1]),
     ystep = as.double(M$ystep), np = as.integer(nX), xp = as.double(xx),
     yp = as.double(yy), kmax = as.integer(kmaxcalc), wantdist = as.integer(want.dist),
     wantwhich = as.integer(want.which), nnd = as.double(nndv),
     nnwhich = as.integer(nnwh), huge = as.double(huge), DUP = DUP)
     .C("nnwhichsort", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     nnwhich = as.integer(nnw), huge = as.double(big), DUP = DUP)
     .C("knnsort", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), nnd = as.double(numeric(n *
     kmaxcalc)), nnwhich = as.integer(nnw), huge = as.double(big),
     DUP = DUP)
     .C("nnw3D", n = as.integer(n), x = as.double(x[o]), y = as.double(y[o]),
     z = as.double(z[o]), nnd = as.double(numeric(1)), nnwhich = as.integer(nnw),
     huge = as.double(big), DUP = DUP)
     .C("knnw3D", n = as.integer(n), kmax = as.integer(kmaxcalc),
     x = as.double(x[o]), y = as.double(y[o]), z = as.double(z[o]),
     nnd = as.double(numeric(1)), nnwhich = as.integer(nnw), huge = as.double(big),
     DUP = DUP)
     .C("nnwMD", n = as.integer(n), m = as.integer(m), x = as.double(t(coo[o,
     ])), nnd = as.double(numeric(n)), nnwhich = as.integer(nnw),
     huge = as.double(big), DUP = DUP)
     .C("knnwMD", n = as.integer(n), m = as.integer(m), kmax = as.integer(kmaxcalc),
     x = as.double(t(coo[o, ])), nnd = as.double(numeric(n * kmaxcalc)),
     nnwhich = as.integer(nnw), huge = as.double(big), DUP = DUP)
     .C("Cpairdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     squared = as.integer(squared), d = as.double(d), DUP = DUP)
     .C("CpairPdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     xwidth = as.double(wide), yheight = as.double(high), squared = as.integer(squared),
     d = as.double(d), DUP = DUP)
     .C("linpairdist", np = as.integer(n), xp = as.double(Y$x), yp = as.double(Y$y),
     nv = as.integer(Lvert$n), xv = as.double(Lvert$x), yv = as.double(Lvert$y),
     ns = as.double(L$n), from = as.integer(from0), to = as.integer(to0),
     dpath = as.double(dpath), segmap = as.integer(segmap), answer = as.double(pairdistmat),
     DUP = DUP)
     .C("D3pairdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     z = as.double(z), squared = as.integer(squared), d = as.double(numeric(n *
     n)), DUP = DUP)
     .C("D3pairPdist", n = as.integer(n), x = as.double(x), y = as.double(y),
     z = as.double(z), xwidth = as.double(wide), yheight = as.double(high),
     zdepth = as.double(deep), squared = as.integer(squared),
     d = as.double(numeric(n * n)), DUP = DUP)
     .C("Rcallpcf3", as.double(x), as.double(y), as.double(z), as.integer(length(x)),
     as.double(box[1]), as.double(box[2]), as.double(box[3]),
     as.double(box[4]), as.double(box[5]), as.double(box[6]),
     as.double(0), as.double(rmax), as.integer(nrval), f = as.double(numeric(nrval)),
     num = as.double(numeric(nrval)), denom = as.double(numeric(nrval)),
     method = as.integer(code), delta = as.double(delta), DUP = DUP)
     .C("poly2imA", ncol = as.integer(nx), nrow = as.integer(ny),
     xpoly = as.double(xx), ypoly = as.double(yy), npoly = as.integer(nn),
     out = as.double(numeric(nx * ny)), status = as.integer(integer(1)),
     DUP = DUP)
     .C("seg2pixL", ns = as.integer(nseg), x0 = as.double(x0), y0 = as.double(y0),
     x1 = as.double(x1), y1 = as.double(y1), weights = as.double(weights),
     pixwidth = as.double(Z$xstep), pixheight = as.double(Z$ystep),
     nx = as.integer(nc), ny = as.integer(nr), out = as.double(numeric(nr *
     nc)), DUP = DUP)
     .C("Cquadform", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     v = as.double(v), y = as.double(numeric(n)), DUP = DUP)
     .C("scantrans", x = as.double(X$x), y = as.double(X$y), n = as.integer(n),
     xmin = as.double(xr[1]), ymin = as.double(yr[1]), xmax = as.double(xr[2]),
     ymax = as.double(yr[2]), nr = as.integer(nr), nc = as.integer(nc),
     R = as.double(r), counts = as.integer(numeric(prod(dimyx))),
     DUP = DUP)
     .C("xysegXint", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     xx = as.double(numeric(n^2)), yy = as.double(numeric(n^2)),
     ti = as.double(numeric(n^2)), tj = as.double(numeric(n^2)),
     ok = as.integer(integer(n^2)), DUP = DUP)
     .C("crsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("wtcrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), wd = as.double(wtsort),
     rmaxi = as.double(cutoff), sig = as.double(sd), result = as.double(double(nquery)),
     DUP = DUP)
     .C("acrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("awtcrsmoopt", nquery = as.integer(nquery), xq = as.double(xq),
     yq = as.double(yq), ndata = as.integer(ndata), xd = as.double(xd),
     yd = as.double(yd), vd = as.double(vd), wd = as.double(wtsort),
     rmaxi = as.double(cutoff), sinv = as.double(flatSinv), result = as.double(double(nquery)),
     DUP = DUP)
     .C("smoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sig = as.double(sd), result = as.double(double(npts)), DUP = DUP)
     .C("wtsmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sig = as.double(sd), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("asmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), result = as.double(double(npts)),
     DUP = DUP)
     .C("awtsmoopt", nxy = as.integer(npts), x = as.double(xx), y = as.double(yy),
     v = as.double(vv), self = as.integer(!leaveoneout), rmaxi = as.double(cutoff),
     sinv = as.double(flatSinv), weight = as.double(wtsort), result = as.double(double(npts)),
     DUP = DUP)
     .C("Csumouter", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     y = as.double(numeric(p * p)), DUP = DUP)
     .C("Cwsumouter", x = as.double(tx), n = as.integer(n), p = as.integer(p),
     w = as.double(w), y = as.double(numeric(p * p)), DUP = DUP)
     .C("Csumsymouter", x = as.double(x), p = as.integer(p), n = as.integer(n),
     y = as.double(numeric(p * p)), DUP = DUP)
     .C("Cwsumsymouter", x = as.double(x), w = as.double(w), p = as.integer(p),
     n = as.integer(n), y = as.double(numeric(p * p)), DUP = DUP)
     .C("xysi", na = as.integer(na), x0a = as.double(x0a), y0a = as.double(y0a),
     dxa = as.double(dxa), dya = as.double(dya), nb = as.integer(nb),
     x0b = as.double(x0b), y0b = as.double(y0b), dxb = as.double(dxb),
     dyb = as.double(dyb), eps = as.double(eps), ok = as.integer(integer(na *
     nb)), DUP = DUP)
     .C("xysxi", na = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     ok = as.integer(integer(n * n)), DUP = DUP)
     .C("Corput", base = as.integer(base), n = as.integer(n), result = as.double(numeric(n)),
     DUP = DUP)
     .C("xypsi", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), xsep = as.double(2 *
     max(abs(dx))), ysep = as.double(2 * max(abs(dy))), eps = as.double(eps),
     proper = as.integer(proper), answer = as.integer(integer(1)),
     DUP = DUP)
     .C("Cxypolyselfint", n = as.integer(n), x0 = as.double(x0), y0 = as.double(y0),
     dx = as.double(dx), dy = as.double(dy), eps = as.double(eps),
     xx = as.double(numeric(n^2)), yy = as.double(numeric(n^2)),
     ti = as.double(numeric(n^2)), tj = as.double(numeric(n^2)),
     ok = as.integer(integer(n^2)), DUP = DUP)
    DUP = FALSE is deprecated and will be disabled in future versions of R.
Flavors: r-patched-solaris-sparc, r-patched-solaris-x86

Version: 1.38-1
Check: package dependencies
Result: NOTE
    Package suggested but not available for checking: ‘gsl’
Flavor: r-release-osx-x86_64-mavericks