## Not run:
# # Load the USArrests dataset included with R
# # And use abbreviations of state names
# # We leave out the third column because
# # it is on a different scale
# usarrests<-USArrests[,c(1,2,4)]
# rownames(usarrests)<-state.abb
# # Run simprof on the data
# res <- simprof(data=usarrests,
# method.distance="braycurtis")
# # Graph the result
# pl.color <- simprof.plot(res)
# ## End(Not run)
Run the code above in your browser using DataLab