## Not run:
# #Loads the mutational and positional data
# CIF<-"http://www.pdb.org/pdb/files/3GFT.cif"
# Fasta<-"http://www.uniprot.org/uniprot/P01116-2.fasta"
# KRAS.Positions<-get.Positions(CIF,Fasta, "A")
# data(KRAS.Mutations)
#
# #gets the cluster results and graph object
# my.graph.clusters <- GraphClust(KRAS.Mutations,KRAS.Positions$Positions,
# insertion.type = "cheapest_insertion",alpha = 0.05,
# MultComp = "Bonferroni")
#
# Plot.Protein(my.graph.clusters$protein.graph, my.graph.clusters$candidate.path,
# vertex.size=5, color.palette="heat")
# ## End(Not run)
Run the code above in your browser using DataLab