# NOT RUN {
	
	## This example may take a few minutes to compute
	
# }
# NOT RUN {
	## Obtain Dataset	
	data(arabid)	
	
	## Normalize Data with Respect to Library Size	
	obj <- t(t(arabid)/colSums(arabid))
	
	## Analysis of Normalized Data using Internal and Stability Measures
	norm1 <- optCluster(obj, 2:4, clMethods = "all")
	## View results
	norm1
	topMethod(norm1)
	summary(norm1)
	optimalScores(norm1)
	optAssign(norm1)
	
	## Extract cluster results for kmeans and all numbers of clusters
	clusterResults(norm1, method = "kmeans")
	## Extract cluster results for kmeans and 3 clusters only
	clusterResults(norm1, method = "kmeans", k = 3)
	
	## Extract all validation scores
	valScores(norm1)
	## Extract validations scores for APN and ADM only
	valScores(norm1, measures = c("APN", "ADM"))
	
	## Extract additional information from slots
	methodNames(norm1)
	measureNames(norm1)
	methodRanks(norm1)
	scoreRanks(norm1)
	
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab