library(AFM)
data(AFMImageOfAluminiumInterface)
newAFMImage<-extractAFMImage(AFMImageOfAluminiumInterface, cornerX=50, cornerY=50, size=256)
displayIn3D(newAFMImage, 1024)
AFMImage<-importFromNanoscope("/user/ubuntu/myNanoscopeAnalysisAFMImage.txt")
displayIn3D(AFMImage, 1024, "/users/ubuntu/myRglAFMimage.png")Run the code above in your browser using DataLab