# NOT RUN {
library(AFM)
library(ggplot2)
data(AFMImageOfRegularPeaks)
AFMImageAnalyser = new("AFMImageAnalyser",
fullfilename="/home/ubuntu/AFMImageOfRegularPeaks-Analyser.txt")
variogramAnalysis<-AFMImageVariogramAnalysis(sampleFitPercentage=3.43/100)
AFMImageAnalyser@variogramAnalysis<-variogramAnalysis
AFMImageAnalyser@variogramAnalysis@omnidirectionalVariogram<-
calculateOmnidirectionalVariogram(AFMImage= AFMImageOfRegularPeaks,
AFMImageVariogramAnalysis= variogramAnalysis)
p<-getLogLogOmnidirectionalSlopeGraph(AFMImageAnalyser, withFratcalSlope=TRUE)
p
# }
Run the code above in your browser using DataLab