performGaussianMixCalculation {AFM}

Perform the calculation for the Gaussian mixes

Description

performGaussianMixCalculation perform all the calculation for PSD exploitation

Usage

performGaussianMixCalculation(AFMImageGaussianMixAnalysis, AFMImage)

Arguments

AFMImageGaussianMixAnalysis

an AFMImageGaussianMixAnalysis to manage and store the results of PSD analysis

AFMImage

an AFMImage from Atomic Force Microscopy

Author(s)

M.Beauvais

Examples

## 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)