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.amCluster(
myCluster,
html = TRUE
)
## Save analysis to HTML file
summary.amCluster(
myCluster,
html = "myCluster.htm"
)
## Display analysis as formatted text on the console
summary.amCluster(myCluster)
## Save unique genotypes only to a CSV file
summary.amCluster(
myCluster,
csv = "myCluster.csv"
)
## Demonstration of how amCluster operates
## Manual control over the recursion in amCluster()
summary.amCluster(
myCluster1 <-
amCluster(
myDataset,
runUntilSingletons = FALSE,
cutHeight = 0.2
),
html = TRUE
)
summary.amCluster(
myCluster2 <-
amCluster(
myCluster1$unique,
runUntilSingletons = FALSE,
cutHeight = 0.2
),
html = TRUE
)
summary.amCluster(
myCluster3 <-
amCluster(
myCluster2$unique,
runUntilSingletons = FALSE,
cutHeight = 0.2
),
html = TRUE
)
summary.amCluster(
myCluster4 <-
amCluster(
myCluster3$unique,
runUntilSingletons = FALSE,
cutHeight = 0.2
),
html = TRUE
)
## No more clusters, therefore stop.
}
Run the code above in your browser using DataLab