if (FALSE) {
data("amExample5")
## Produce CSS file for editing
cat(amCSSForHTML(), file = "myCSS.css")
## Edit myCSS.css manually using text editor, then reimport as follows
myCSS <-
paste(
readLines("myCSS.css"),
collapse = "\n"
)
## Perform an allelematch unique analysis
myUnique <-
amUnique(
amDataset(
amExample5,
missingCode = "-99",
indexColumn = 1,
metaDataColumn = 2,
ignoreColumn = "gender"
),
alleleMismatch = 3
)
## Produce HTML output using tweaked CSS
amHTML.amUnique(
myUnique,
html = "myUnique.htm",
htmlCSS = myCSS
)
}
Run the code above in your browser using DataLab