findDampFactor {smfishHmrf}

findDampFactor

Description

find dampening factor

Usage

findDampFactor(sigma, factor = 1.05, d_cutoff = 1e-60, startValue = 1e-04)

Arguments

sigma

covariance matrix

factor

step factor

d_cutoff

determinant cutoff

startValue

starting value to initialize the finding

Examples

data(seqfishplus)
k<-dim(seqfishplus$mu)[2]
damp<-array(0, c(k))
for(i in 1:k){
    di<-findDampFactor(seqfishplus$sigma[,,i], factor=1.05, d_cutoff=1e-5, startValue=0.0001)
    damp[i]<-ifelse(is.null(di), 0, di)
}