dup.sel {CADStat}R Documentation

Dialog box for predicting env. conditions from biological observations

Description

This function is used to check duplicate records after user select records from a JGR message box

Usage

        dup.sel(bcnt, itis.ttable, tempstr)

Arguments

bcnt the benthic count matrix
itis.ttable Taxonomic table from ITIS website
tempstr user selected string from java interface

See Also

bioinfer1.JGR, bioinfer2.JGR, bioinfer3.JGR, JGRMessageBox, get.mergedfile, get.mismatch, get.duplicates, get.otu.jgr

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (bcnt, itis.ttable, tempstr) 
{
    reps <- unique(dftemp2$TAXON[duplicated(dftemp2$TAXON)])
    taxalist <- (substr(tempstr, 1, regexpr("-", tempstr) - 1))
    unmatch <- length(reps[!(reps %in% unique(taxalist))])
    if (unmatch > 0 | length(reps) != length(taxalist)) {
        d <- .jnew("org.neptuneinc.cadstat.plots.BiologicalInferencesTaxaNameDupITIS")
        .jcall(d, "Ljavax/swing/JFrame;", "getMyGUI", length(sumstr), 
            sumstr, 1)
    }
    else {
        get.mergedfile(bcnt, itis.ttable, selstr = tempstr, outputFile = NULL)
    }
  }

[Package CADStat version 2.1-17 Index]