Description Usage Arguments Author(s) Examples
View source: R/AFMGaussianMixAnalyser.R
performGaussianMixCalculation
perform all the calculation for PSD exploitation
1 |
AFMImageGaussianMixAnalysis |
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 25 26 27 28 | ## Not run:
library(AFM)
data(AFMImageCollagenNetwork)
AFMImage<-AFMImageCollagenNetwork
AFMImage@fullfilename<-"/Users/one/AFMImageCollagenNetwork.txt"
gMixAnalysis<-AFMImageGaussianMixAnalysis()
# from two components
gMixAnalysis@minGaussianMix<-2
# to four components
gMixAnalysis@maxGaussianMix<-4
# convergence criteria
gMixAnalysis@epsilonGaussianMix<-1e-4
# Create a closure to update progress
gMixAnalysis@updateProgress<- function(value = NULL, detail = NULL, message = NULL) {
if (exists("progressGaussianMix")){
if (!is.null(message)) {
progressGaussianMix$set(message = message, value = 0)
}else{
progressGaussianMix$set(value = value, detail = detail)
}
}
}
gMixAnalysis<-performGaussianMixCalculation(AFMImageGaussianMixAnalysis= gMixAnalysis, AFMImage)
print("done performGaussianMixCalculation")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.