# remove problem strings from a DNA string set
specdata <- querySpecData("Panthera leo")
specdata <- subset(specdata, markercode == "COI-5P")
DNABin_Leo <- genDNABin(specdata)
DNAStringset_Leo <- genDNAStringSet(DNABin_Leo)
DNAStringSet_Leo_manipulated <- ManipStringSet(DNAStringset_Leo)
StringsAndSpecdataframe <- rmBadStrings_2(
DNAStringSet = DNAStringSet_Leo_manipulated,
specimen_dataframe = specdata
)
DNAStringSet_NEW <- StringsAndSpecdataframe[[1]]
tail(DNAStringSet_NEW)
specimen_dataframe_NEW <- StringsAndSpecdataframe[[2]]
tail(specimen_dataframe_NEW$processid)
Run the code above in your browser using DataLab