dup.sel {CADStat} | R Documentation |
This function is used to check duplicate records after user select records from a JGR message box
dup.sel(bcnt, itis.ttable, tempstr)
bcnt |
the benthic count matrix |
itis.ttable |
Taxonomic table from ITIS website |
tempstr |
user selected string from java interface |
bioinfer1.JGR
,
bioinfer2.JGR
,
bioinfer3.JGR
,
JGRMessageBox
,
get.mergedfile
,
get.mismatch
,
get.duplicates
,
get.otu.jgr
##---- 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) } }