if (FALSE) {
data("amExample5")
## Produce amDataset object
myDataset <- amDataset(amExample5, missingCode="-99", indexColumn=1,
metaDataColumn=2, ignoreColumn="gender")
## Usage
myCluster <- amCluster(myDataset, cutHeight=0.2)
## Display analysis as HTML in default browser
summary(myCluster, html=TRUE)
## Save analysis to HTML file
summary(myCluster, html="myCluster.htm")
## Display analysis as formatted text on the console
summary(myCluster)
## Save unique genotypes only to a CSV file
summary(myCluster, csv="myCluster.csv")
## Demonstration of how amCluster operates
## Manual control over the recursion in amCluster()
summary(myCluster1 <- amCluster(myDataset, runUntilSingletons=FALSE,
cutHeight=0.2), html=TRUE)
summary(myCluster2 <- amCluster(myCluster1$unique, runUntilSingletons=FALSE,
cutHeight=0.2), html=TRUE)
summary(myCluster3 <- amCluster(myCluster2$unique, runUntilSingletons=FALSE,
cutHeight=0.2), html=TRUE)
summary(myCluster4 <- amCluster(myCluster3$unique, runUntilSingletons=FALSE,
cutHeight=0.2), html=TRUE)
## No more clusters, therefore stop.
}
Run the code above in your browser using DataCamp Workspace