Description Usage Arguments Author(s) Examples
View source: R/AFMPSDAnalyser.R
performAllPSDCalculation
perform all the calculation for PSD exploitation
1 |
AFMImagePSDAnalysis |
an |
AFMImage |
an |
M.Beauvais
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | ## Not run:
library(AFM)
data(AFMImageOfNormallyDistributedHeights)
newAFMImage<-AFMImageOfNormallyDistributedHeights
newAFMImage@fullfilename<-"C:/Users/one/AFMImageOfNormallyDistributedHeights.txt"
psdAnalysis<-AFMImagePSDAnalysis()
# Create a closure to update progress
psdAnalysis@updateProgress<- function(value = NULL, detail = NULL, message = NULL) {
if (exists("progressPSD")){
if (!is.null(message)) {
progressPSD$set(message = message, value = 0)
}else{
progressPSD$set(value = value, detail = detail)
}
}
}
psdAnalysis@psd1d_breaks<-2^3
psdAnalysis@psd2d_truncHighLengthScale<-TRUE
psdAnalysis<-performAllPSDCalculation(AFMImagePSDAnalysis= psdAnalysis, AFMImage= newAFMImage)
print("done psdAnalysis")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.