if (FALSE) {
data("amExample2")
## Produce amDataset object
myDataset <-
amDataset(
amExample2,
missingCode = "-99",
indexColumn = 1,
ignoreColumn = 2
)
## Usage
## Optimal alleleMismatch parameter previously found using amUniqueProfile()
myUnique <-
amUnique(
myDataset,
alleleMismatch = 3
)
## Display analysis as HTML in default browser
summary.amUnique(
myUnique,
html = TRUE
)
## Save analysis to HTML file
summary.amUnique(
myUnique,
html = "myUnique.htm"
)
## Save analysis to a CSV file
summary.amUnique(
myUnique,
csv = "myUnique.csv"
)
## Save unique genotypes only to a CSV file
summary.amUnique(
myUnique,
csv = "myUnique.csv",
uniqueOnly = TRUE
)
## Data set with gender information
data("amExample5")
## Produce amDataset object
myDataset2 <-
amDataset(
amExample5,
missingCode = "-99",
indexColumn = 1,
metaDataColumn = 2
)
## Usage
## Optimal alleleMismatch parameter previously found using amUniqueProfile()
myUniqueProfile <-
amUnique(
myDataset2,
multilocusMap = c(1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10,
11, 11),
alleleMismatch = 3
)
}
Run the code above in your browser using DataLab