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