CRAN Package Check Results for Package adimpro

Last updated on 2015-02-05 23:50:18.

Check Details

Version: 0.7.8
Check: top-level files
Result: NOTE
    Non-standard file/directory found at top level:
     ‘COPYRIGHT’
    Copyright information should be in file inst/COPYRIGHTS
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-linux-x86_64, r-release-linux-ix86, r-release-linux-x86_64

Version: 0.7.8
Check: S3 generic/method consistency
Result: NOTE
    Found the following apparent S3 methods exported but not registered:
     plot.adimpro summary.adimpro
    See section ‘Registering S3 methods’ in the ‘Writing R Extensions’
    manual.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-osx-x86_64-clang

Version: 0.7.8
Check: foreign function calls
Result: NOTE
    Calls with DUP:
     .Fortran("awsimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(hpre), theta = integer(prod(dimg)),
     double(n1 * n2), as.integer(lkern), double(twohp1 * twohp1),
     double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - pretheta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), as.double(hpre), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("aniawsv", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(anisoimg), as.double(vobj$coef),
     as.integer(nvarpar), as.double(vobj$meanvar), as.double(chcorr),
     hakt = as.double(hakt), as.double(lambda0), as.integer(theta),
     bi = as.double(bi), theta = integer(prod(dimg)), as.integer(lkern),
     as.integer(1), as.double(spmin), as.double(spmax), as.double(sqrt(wghts)),
     double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("aniawsim", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(anisoimg), hakt = as.double(hakt),
     as.double(lambda0), as.integer(theta), bi = as.double(bi),
     theta = integer(prod(dimg)), as.integer(lkern), as.integer(1),
     as.double(spmin), as.double(spmax), as.double(wghts), double(dv),
     DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - theta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran(switch(varmodel, Constant = "esigmac", Linear = "esigmal"),
     as.integer(switch(imgtype, greyscale = object$img[xind, yind],
     rgb = object$img[xind, yind, ])), as.integer(n1 * n2),
     as.integer(dv), as.integer(theta), as.double(bi), as.integer(imgq995),
     coef = double(nvarpar * dv), meanvar = double(dv), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("awsimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(hpre), theta = integer(prod(dimg)),
     bi = double(n1 * n2), as.integer(lkern), double(twohp1 *
     twohp1), double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - pretheta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), as.double(hpre), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("awsvimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), fix = as.logical(fix),
     as.integer(n1), as.integer(n2), as.integer(dv), as.double(vobj$coef),
     as.integer(nvarpar), as.double(vobj$meanvar), as.double(chcorr),
     hakt = as.double(hakt), hhom = as.double(hhom), as.double(lambda0),
     as.integer(theta), bi = as.double(bi), bi0 = as.double(bi0),
     theta = integer(prod(dimg)), as.integer(lkern), as.double(spmin),
     as.double(sqrt(wghts)), double(twohp1 * twohp1), double(dv),
     as.logical(earlystop), as.logical(homogen), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("mawsimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.logical(fix),
     as.logical(mask[xind, yind]), as.integer(n1), as.integer(n2),
     as.integer(dv), hakt = as.double(hakt), as.double(lambda0),
     as.integer(theta), bi = as.double(bi), bi0 = as.double(bi0),
     theta = integer(prod(dimg)), as.integer(lkern), as.double(spmin),
     double(twohp1 * twohp1), as.double(wghts), double(dv), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - theta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran(switch(toupper(varmodel), CONSTANT = "esigmac", LINEAR = "esigmal",
     QUADRATIC = "esigmaq"), as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1 *
     n2), as.integer(dv), as.integer(theta), as.double(bi), as.integer(imgq995),
     coef = double(nvarpar * dv), meanvar = double(dv), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("awsimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(hpre), theta = integer(prod(dimg)),
     bi = double(n1 * n2), as.integer(lkern), double(twohp1 *
     twohp1), double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - pretheta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran(switch(varmodel, Constant = "epsigmac", Linear = "epsigmal"),
     as.integer(switch(imgtype, greyscale = object$img[xind, yind],
     rgb = object$img[xind, yind, ])), as.integer(n1 * n2),
     as.integer(dv), as.integer(pretheta), as.double(prebi), as.integer(imgq995),
     coef = double(nvarpar * dv), meanvar = double(dv), as.integer(dp1),
     DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - theta[, , 1, ]),
     as.integer(n1), as.integer(n2), as.integer(dv), scorr = double(2 *
     dv), chcorr = double(max(1, dv * (dv - 1)/2)), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran(switch(varmodel, Constant = "epsigmac", Linear = "epsigmal"),
     as.integer(switch(imgtype, greyscale = object$img[xind, yind],
     rgb = object$img[xind, yind, ])), as.integer(n1 * n2),
     as.integer(dv), as.integer(theta[, , 1, ]), as.double(bi),
     as.integer(imgq995), coef = double(nvarpar * dv), meanvar = double(dv),
     as.integer(dp1), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("awsvimg", as.integer(object$img), fix = as.logical(fix),
     as.integer(n1), as.integer(n2), as.integer(dv), as.double(vobj$coef),
     as.integer(nvarpar), as.double(vobj$meanvar), as.double(chcorr),
     hakt = as.double(hakt), hhom = as.double(hhom), as.double(lambda0),
     as.integer(theta), bi = as.double(bi), bi0 = as.double(bi0),
     theta = integer(prod(dimg)), as.integer(lkern), as.double(spmin),
     as.double(sqrt(wghts)), double(twohp1 * twohp1), double(dv),
     as.logical(earlystop), as.logical(homogen), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("awsimg", as.integer(object$img), as.integer(n1), as.integer(n2),
     as.integer(dv), hakt = as.double(hakt), theta = integer(prod(dimg)),
     bi = as.double(bi), as.integer(lkern), double(twohp1 * twohp1),
     double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("esigmac", as.integer(object$img), as.integer(n1 * n2),
     as.integer(dv), as.integer(theta), as.double(bi), as.integer(imgq995),
     coef = double(nvarpar * dv), meanvar = double(dv), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("dhomogen", as.integer(object$img), as.integer(object$dim[1]),
     as.integer(object$dim[2]), imghom = integer(n1 * n2), as.integer(bayer),
     DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("smsens0", as.integer(object$img), shat = integer(n1 *
     n2), bi = double(n1 * n2), as.integer(object$dim[1]), as.integer(object$dim[2]),
     as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("senvar", as.integer(object$img), as.integer(object$dim[1]),
     as.integer(object$dim[2]), as.integer(sensorhat0$shat), as.double(sensorhat0$bi),
     as.integer(bayer), coef = double(6), meanvar = double(3),
     as.logical(indnothom), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("demmed4", as.integer(object$img), cimg = integer((n1 -
     2) * (n2 - 2) * 3), as.integer(n1), as.integer(n2), as.integer(n1 -
     2), as.integer(n2 - 2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("smsensor", as.integer(object$img), shat = integer(n1 *
     n2), as.integer(cimg), as.integer(n1), as.integer(n2), as.integer(n1 -
     2), as.integer(n2 - 2), as.integer(bayer), as.double(vobj$coef),
     as.double(vobj$meanvar), hakt = as.double(hakt), as.double(lambda),
     bi = as.double(zobj$bi), as.integer(lkern), as.double(spmin),
     double(twohp1 * twohp1), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("demmed4b", as.integer(zobj$shat), cimg = as.integer(cimg),
     as.integer(n1), as.integer(n2), as.integer(n1 - 2), as.integer(n2 -
     2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("cam2rgb", as.integer(cimg), as.integer((n1 - 2) * (n2 -
     2)), as.double(out.cam), theta = integer((n1 - 2) * (n2 -
     2) * 3), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("senvar", as.integer(object$img), as.integer(object$dim[1]),
     as.integer(object$dim[2]), as.integer(zobj$shat), as.double(zobj$bi),
     as.integer(bayer), coef = double(6), meanvar = double(3),
     as.logical(indnothom), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("cam2rgb", as.integer(cimg), as.integer((n1 - 2) * (n2 -
     2)), as.double(out.cam), theta = integer((n1 - 2) * (n2 -
     2) * 3), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("wbalance", sensor = as.integer(object$img), as.integer(n1),
     as.integer(n2), as.double(wb), as.integer(bayer), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("fullsize", as.integer(object$img), theta = integer(h1 *
     h2 * 3), as.integer(n1), as.integer(n2), as.integer(h1),
     as.integer(h2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("halfsize", as.integer(object$img), theta = integer(h1 *
     h2 * 3), as.integer(n1), as.integer(n2), as.integer(h1),
     as.integer(h2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("indemos4", as.integer(object$img), theta = integer(n1 *
     n2 * 3), as.integer(n1), as.integer(n2), as.integer(bayer),
     as.integer(rep(1, 3 * n1 * n2)), integer(3 * n1 * n2), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("demmed16", as.integer(object$img), theta = integer(h1 *
     h2 * 3), as.integer(n1), as.integer(n2), as.integer(h1),
     as.integer(h2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("demmed4", as.integer(object$img), theta = integer(h1 *
     h2 * 3), as.integer(n1), as.integer(n2), as.integer(h1),
     as.integer(h2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("cam2rgb", as.integer(theta), as.integer(n), as.double(out.cam),
     theta = integer(n * 3), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("awsimg", as.integer(img[xind, yind]), as.integer(n1),
     as.integer(n2), as.integer(1), as.double(hpre), theta = integer(prod(dimg)),
     bi = double(n1 * n2), as.integer(lkern), double(twohp1 *
     twohp1), double(1), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(img[xind, yind] - pretheta), as.integer(n1),
     as.integer(n2), as.integer(1), scorr = double(2), double(1),
     as.double(hpre), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("segment", as.integer(img[xind, yind]), as.double(level),
     as.double(delta), as.integer(n1), as.integer(n2), hakt = as.double(hakt),
     as.double(lambda0), as.integer(theta), as.double(vobj$coef),
     as.integer(nvarpar), as.double(vobj$meanvar), bi = as.double(bi),
     double(n1 * n2), theta = integer(n1 * n2), as.integer(lkern),
     as.double(spmin), double(twohp1 * twohp1), pvalues = double(n1 *
     n2), segment = as.integer(segment), as.double(thresh),
     as.double(fov), varest = as.double(varest), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(img[xind, yind] - theta), as.integer(n1),
     as.integer(n2), as.integer(1), scorr = double(2), double(1),
     DUP = FALSE, PACKAGE = "adimpro")
     .Fortran(switch(toupper(varmodel), CONSTANT = "esigmac", LINEAR = "esigmal",
     QUADRATIC = "esigmaq"), as.integer(img[xind, yind]), as.integer(n1 *
     n2), as.integer(1), as.integer(theta), as.double(bi), as.integer(imgq995),
     coef = double(nvarpar), meanvar = double(1), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("connect1", segment = as.integer(segment), as.integer(n1),
     as.integer(n2), as.integer(coord$x), as.integer(coord$y),
     integer(n1 * n2), integer(n1 * n2), logical(n1 * n2), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("shrinkc", as.integer(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), imgnew = integer(xt * yt * dv), as.integer(xt),
     as.integer(yt), as.double(0.001), double(nz * dv), as.integer(nz),
     as.integer(imethod), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("shrinkg", as.integer(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), imgnew = integer(xt * yt), as.integer(xt),
     as.integer(yt), as.double(0.001), double(nz), as.integer(nz),
     as.integer(imethod), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("shrnkrgb", as.integer(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), as.integer(dv), imgnew = integer(xt *
     yt * dv), as.integer(xt), as.integer(yt), integer(xt +
     1), integer(yt + 1), as.integer(imethod), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("shrnkcsp", as.double(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), as.integer(dv), imgnew = numeric(xt *
     yt * dv), as.integer(xt), as.integer(yt), integer(xt +
     1), integer(yt + 1), as.integer(imethod), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("shrnkgr", as.integer(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), imgnew = integer(xt * yt), as.integer(xt),
     as.integer(yt), integer(xt + 1), integer(yt + 1), as.integer(imethod),
     DUP = FALSE, PACKAGE = "adimpro")
    DUP is no longer supported and will be ignored.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, 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: 0.7.8
Check: R code for possible problems
Result: NOTE
    Found an obsolete/platform-specific call in the following functions:
     ‘plot.adimpro’ ‘show.image’
    Found the platform-specific device:
     ‘X11’
    dev.new() is the preferred way to open a new device, in the unlikely
    event one is needed.
    File ‘adimpro/R/misc.r’:
     .onLoad calls:
     packageStartupMessage("Reading RAW images requires to install dcraw, see \n\n http://cybercom.net/~dcoffin/dcraw/ for LINUX and http://www.insflug.org/raw/ \n for MAC OS and Windows \n")
    
    See section ‘Good practice’ in '?.onAttach'.
    
    Found the following assignments to the global environment:
    File ‘adimpro/R/misc.r’:
     assign(".adimpro", list(xsize = xsize, ysize = ysize), pos = 1)
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-osx-x86_64-clang, r-patched-linux-x86_64, r-release-linux-ix86, r-release-linux-x86_64

Version: 0.7.8
Check: Rd line widths
Result: NOTE
    Rd file 'adimpro.Rd':
     \usage lines wider than 90 characters:
     make.image(x,compress=TRUE, gammatype="None", whitep = "D65", cspace="Adobe", scale="Original",xmode="RGB")
    
    Rd file 'awsraw.Rd':
     \usage lines wider than 90 characters:
     awsraw(object, hmax = 4, aws = TRUE, wb = c(1, 1, 1), cspace = "Adobe", ladjust = 1, maxrange=TRUE,
    
    Rd file 'combine.Rd':
     \usage lines wider than 90 characters:
     combine(img1, img2, fun = "+", rescale = TRUE, compress = TRUE, gammatype = "None", whitep = "D65", cspace = "Adobe", xmode = "RGB", .. ... [TRUNCATED]
    
    Rd file 'segment.Rd':
     \usage lines wider than 90 characters:
     segment(object, level=0.5, delta = 0, thresh = 3, fov = NULL, channel = 0, hmax = 4, aws = TRUE, varmodel = NULL, ladjust = 1.25, xind ... [TRUNCATED]
    
    These lines will be truncated in the PDF manual.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-linux-x86_64, r-release-linux-ix86, r-release-linux-x86_64

Version: 0.7.8
Check: S3 generic/method consistency
Result: NOTE
    Found the following apparent S3 methods exported but not registered:
     summary.adimpro plot.adimpro
    See section ‘Registering S3 methods’ in the ‘Writing R Extensions’
    manual.
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.7.8
Check: R code for possible problems
Result: NOTE
    Found an obsolete/platform-specific call in the following functions:
     ‘plot.adimpro’ ‘show.image’
    Found the platform-specific device:
     ‘X11’
    dev.new() is the preferred way to open a new device, in the unlikely
    event one is needed.
    File ‘adimpro/R/misc.r’:
     .onLoad calls:
     packageStartupMessage("Reading RAW images requires to install dcraw, see \n\n http://cybercom.net/~dcoffin/dcraw/ for LINUX and http://www.insflug.org/raw/ \n for MAC OS and Windows \n")
    
    See section ‘Good practice’ in '?.onAttach'.
Flavors: r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-sparc, r-patched-solaris-x86

Version: 0.7.8
Check: R code for possible problems
Result: NOTE
    File 'adimpro/R/misc.r':
     .onLoad calls:
     packageStartupMessage("Reading RAW images requires to install dcraw, see \n\n http://cybercom.net/~dcoffin/dcraw/ for LINUX and http://www.insflug.org/raw/ \n for MAC OS and Windows \n")
    
    See section 'Good practice' in '?.onAttach'.
Flavors: r-devel-windows-ix86+x86_64, r-release-osx-x86_64-mavericks, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64

Version: 0.7.8
Check: foreign function calls
Result: NOTE
    Calls with DUP != TRUE:
     .Fortran("awsimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(hpre), theta = integer(prod(dimg)),
     double(n1 * n2), as.integer(lkern), double(twohp1 * twohp1),
     double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - pretheta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), as.double(hpre), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("aniawsv", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(anisoimg), as.double(vobj$coef),
     as.integer(nvarpar), as.double(vobj$meanvar), as.double(chcorr),
     hakt = as.double(hakt), as.double(lambda0), as.integer(theta),
     bi = as.double(bi), theta = integer(prod(dimg)), as.integer(lkern),
     as.integer(1), as.double(spmin), as.double(spmax), as.double(sqrt(wghts)),
     double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("aniawsim", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(anisoimg), hakt = as.double(hakt),
     as.double(lambda0), as.integer(theta), bi = as.double(bi),
     theta = integer(prod(dimg)), as.integer(lkern), as.integer(1),
     as.double(spmin), as.double(spmax), as.double(wghts), double(dv),
     DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - theta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran(switch(varmodel, Constant = "esigmac", Linear = "esigmal"),
     as.integer(switch(imgtype, greyscale = object$img[xind, yind],
     rgb = object$img[xind, yind, ])), as.integer(n1 * n2),
     as.integer(dv), as.integer(theta), as.double(bi), as.integer(imgq995),
     coef = double(nvarpar * dv), meanvar = double(dv), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("awsimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(hpre), theta = integer(prod(dimg)),
     bi = double(n1 * n2), as.integer(lkern), double(twohp1 *
     twohp1), double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - pretheta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), as.double(hpre), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("awsvimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), fix = as.logical(fix),
     as.integer(n1), as.integer(n2), as.integer(dv), as.double(vobj$coef),
     as.integer(nvarpar), as.double(vobj$meanvar), as.double(chcorr),
     hakt = as.double(hakt), hhom = as.double(hhom), as.double(lambda0),
     as.integer(theta), bi = as.double(bi), bi0 = as.double(bi0),
     theta = integer(prod(dimg)), as.integer(lkern), as.double(spmin),
     as.double(sqrt(wghts)), double(twohp1 * twohp1), double(dv),
     as.logical(earlystop), as.logical(homogen), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("mawsimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.logical(fix),
     as.logical(mask[xind, yind]), as.integer(n1), as.integer(n2),
     as.integer(dv), hakt = as.double(hakt), as.double(lambda0),
     as.integer(theta), bi = as.double(bi), bi0 = as.double(bi0),
     theta = integer(prod(dimg)), as.integer(lkern), as.double(spmin),
     double(twohp1 * twohp1), as.double(wghts), double(dv), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - theta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran(switch(toupper(varmodel), CONSTANT = "esigmac", LINEAR = "esigmal",
     QUADRATIC = "esigmaq"), as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1 *
     n2), as.integer(dv), as.integer(theta), as.double(bi), as.integer(imgq995),
     coef = double(nvarpar * dv), meanvar = double(dv), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("awsimg", as.integer(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ])), as.integer(n1),
     as.integer(n2), as.integer(dv), as.double(hpre), theta = integer(prod(dimg)),
     bi = double(n1 * n2), as.integer(lkern), double(twohp1 *
     twohp1), double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - pretheta), as.integer(n1),
     as.integer(n2), as.integer(dv), scorr = double(2 * dv), chcorr = double(max(1,
     dv * (dv - 1)/2)), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran(switch(varmodel, Constant = "epsigmac", Linear = "epsigmal"),
     as.integer(switch(imgtype, greyscale = object$img[xind, yind],
     rgb = object$img[xind, yind, ])), as.integer(n1 * n2),
     as.integer(dv), as.integer(pretheta), as.double(prebi), as.integer(imgq995),
     coef = double(nvarpar * dv), meanvar = double(dv), as.integer(dp1),
     DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(switch(imgtype, greyscale = object$img[xind,
     yind], rgb = object$img[xind, yind, ]) - theta[, , 1, ]),
     as.integer(n1), as.integer(n2), as.integer(dv), scorr = double(2 *
     dv), chcorr = double(max(1, dv * (dv - 1)/2)), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran(switch(varmodel, Constant = "epsigmac", Linear = "epsigmal"),
     as.integer(switch(imgtype, greyscale = object$img[xind, yind],
     rgb = object$img[xind, yind, ])), as.integer(n1 * n2),
     as.integer(dv), as.integer(theta[, , 1, ]), as.double(bi),
     as.integer(imgq995), coef = double(nvarpar * dv), meanvar = double(dv),
     as.integer(dp1), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("awsvimg", as.integer(object$img), fix = as.logical(fix),
     as.integer(n1), as.integer(n2), as.integer(dv), as.double(vobj$coef),
     as.integer(nvarpar), as.double(vobj$meanvar), as.double(chcorr),
     hakt = as.double(hakt), hhom = as.double(hhom), as.double(lambda0),
     as.integer(theta), bi = as.double(bi), bi0 = as.double(bi0),
     theta = integer(prod(dimg)), as.integer(lkern), as.double(spmin),
     as.double(sqrt(wghts)), double(twohp1 * twohp1), double(dv),
     as.logical(earlystop), as.logical(homogen), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("awsimg", as.integer(object$img), as.integer(n1), as.integer(n2),
     as.integer(dv), hakt = as.double(hakt), theta = integer(prod(dimg)),
     bi = as.double(bi), as.integer(lkern), double(twohp1 * twohp1),
     double(dv), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("esigmac", as.integer(object$img), as.integer(n1 * n2),
     as.integer(dv), as.integer(theta), as.double(bi), as.integer(imgq995),
     coef = double(nvarpar * dv), meanvar = double(dv), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("dhomogen", as.integer(object$img), as.integer(object$dim[1]),
     as.integer(object$dim[2]), imghom = integer(n1 * n2), as.integer(bayer),
     DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("smsens0", as.integer(object$img), shat = integer(n1 *
     n2), bi = double(n1 * n2), as.integer(object$dim[1]), as.integer(object$dim[2]),
     as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("senvar", as.integer(object$img), as.integer(object$dim[1]),
     as.integer(object$dim[2]), as.integer(sensorhat0$shat), as.double(sensorhat0$bi),
     as.integer(bayer), coef = double(6), meanvar = double(3),
     as.logical(indnothom), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("demmed4", as.integer(object$img), cimg = integer((n1 -
     2) * (n2 - 2) * 3), as.integer(n1), as.integer(n2), as.integer(n1 -
     2), as.integer(n2 - 2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("smsensor", as.integer(object$img), shat = integer(n1 *
     n2), as.integer(cimg), as.integer(n1), as.integer(n2), as.integer(n1 -
     2), as.integer(n2 - 2), as.integer(bayer), as.double(vobj$coef),
     as.double(vobj$meanvar), hakt = as.double(hakt), as.double(lambda),
     bi = as.double(zobj$bi), as.integer(lkern), as.double(spmin),
     double(twohp1 * twohp1), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("demmed4b", as.integer(zobj$shat), cimg = as.integer(cimg),
     as.integer(n1), as.integer(n2), as.integer(n1 - 2), as.integer(n2 -
     2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("cam2rgb", as.integer(cimg), as.integer((n1 - 2) * (n2 -
     2)), as.double(out.cam), theta = integer((n1 - 2) * (n2 -
     2) * 3), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("senvar", as.integer(object$img), as.integer(object$dim[1]),
     as.integer(object$dim[2]), as.integer(zobj$shat), as.double(zobj$bi),
     as.integer(bayer), coef = double(6), meanvar = double(3),
     as.logical(indnothom), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("cam2rgb", as.integer(cimg), as.integer((n1 - 2) * (n2 -
     2)), as.double(out.cam), theta = integer((n1 - 2) * (n2 -
     2) * 3), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("wbalance", sensor = as.integer(object$img), as.integer(n1),
     as.integer(n2), as.double(wb), as.integer(bayer), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("fullsize", as.integer(object$img), theta = integer(h1 *
     h2 * 3), as.integer(n1), as.integer(n2), as.integer(h1),
     as.integer(h2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("halfsize", as.integer(object$img), theta = integer(h1 *
     h2 * 3), as.integer(n1), as.integer(n2), as.integer(h1),
     as.integer(h2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("indemos4", as.integer(object$img), theta = integer(n1 *
     n2 * 3), as.integer(n1), as.integer(n2), as.integer(bayer),
     as.integer(rep(1, 3 * n1 * n2)), integer(3 * n1 * n2), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("demmed16", as.integer(object$img), theta = integer(h1 *
     h2 * 3), as.integer(n1), as.integer(n2), as.integer(h1),
     as.integer(h2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("demmed4", as.integer(object$img), theta = integer(h1 *
     h2 * 3), as.integer(n1), as.integer(n2), as.integer(h1),
     as.integer(h2), as.integer(bayer), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("cam2rgb", as.integer(theta), as.integer(n), as.double(out.cam),
     theta = integer(n * 3), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("awsimg", as.integer(img[xind, yind]), as.integer(n1),
     as.integer(n2), as.integer(1), as.double(hpre), theta = integer(prod(dimg)),
     bi = double(n1 * n2), as.integer(lkern), double(twohp1 *
     twohp1), double(1), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(img[xind, yind] - pretheta), as.integer(n1),
     as.integer(n2), as.integer(1), scorr = double(2), double(1),
     as.double(hpre), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("segment", as.integer(img[xind, yind]), as.double(level),
     as.double(delta), as.integer(n1), as.integer(n2), hakt = as.double(hakt),
     as.double(lambda0), as.integer(theta), as.double(vobj$coef),
     as.integer(nvarpar), as.double(vobj$meanvar), bi = as.double(bi),
     double(n1 * n2), theta = integer(n1 * n2), as.integer(lkern),
     as.double(spmin), double(twohp1 * twohp1), pvalues = double(n1 *
     n2), segment = as.integer(segment), as.double(thresh),
     as.double(fov), varest = as.double(varest), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("estcorr", as.double(img[xind, yind] - theta), as.integer(n1),
     as.integer(n2), as.integer(1), scorr = double(2), double(1),
     DUP = FALSE, PACKAGE = "adimpro")
     .Fortran(switch(toupper(varmodel), CONSTANT = "esigmac", LINEAR = "esigmal",
     QUADRATIC = "esigmaq"), as.integer(img[xind, yind]), as.integer(n1 *
     n2), as.integer(1), as.integer(theta), as.double(bi), as.integer(imgq995),
     coef = double(nvarpar), meanvar = double(1), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("connect1", segment = as.integer(segment), as.integer(n1),
     as.integer(n2), as.integer(coord$x), as.integer(coord$y),
     integer(n1 * n2), integer(n1 * n2), logical(n1 * n2), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("shrinkc", as.integer(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), imgnew = integer(xt * yt * dv), as.integer(xt),
     as.integer(yt), as.double(0.001), double(nz * dv), as.integer(nz),
     as.integer(imethod), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("shrinkg", as.integer(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), imgnew = integer(xt * yt), as.integer(xt),
     as.integer(yt), as.double(0.001), double(nz), as.integer(nz),
     as.integer(imethod), DUP = FALSE, PACKAGE = "adimpro")
     .Fortran("shrnkrgb", as.integer(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), as.integer(dv), imgnew = integer(xt *
     yt * dv), as.integer(xt), as.integer(yt), integer(xt +
     1), integer(yt + 1), as.integer(imethod), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("shrnkcsp", as.double(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), as.integer(dv), imgnew = numeric(xt *
     yt * dv), as.integer(xt), as.integer(yt), integer(xt +
     1), integer(yt + 1), as.integer(imethod), DUP = FALSE,
     PACKAGE = "adimpro")
     .Fortran("shrnkgr", as.integer(img$img), as.integer(dimg[1]),
     as.integer(dimg[2]), imgnew = integer(xt * yt), as.integer(xt),
     as.integer(yt), integer(xt + 1), integer(yt + 1), as.integer(imethod),
     DUP = FALSE, PACKAGE = "adimpro")
    DUP = FALSE is deprecated and will be disabled in future versions of R.
Flavors: r-patched-linux-x86_64, r-patched-solaris-sparc, r-patched-solaris-x86, r-release-linux-ix86, r-release-linux-x86_64, r-release-osx-x86_64-mavericks, r-release-windows-ix86+x86_64