## Not run:
# #Plots a sphere centered around amino acid 12 with radius 3.
# library(rgl)
#
# #loads the 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")
#
# #generates the plot
# make.3D.Sphere(KRAS.Positions$Positions, 12, 3)
# ## End(Not run)
Run the code above in your browser using DataLab