R/nrm.R

Defines functions nrm

Documented in nrm

nrm<-function(A) {

  buff3<-dim(A)
  n1<-buff3[1]
  m1<-buff3[2]
  d<-apply(A^2,2,sum)
  w<-d>1e-30
  N<-matrix(0,n1,m1)
  if(sum(w)>0){
    a1<-A[,w]
    a2<-matrix(1,n1,1)*d[w]^.5
    N[,w]<-a1/a2[col(a1)]
  }

}

Try the EFA.MRFA package in your browser

Any scripts or data that you put into this service are public.

EFA.MRFA documentation built on June 16, 2021, 9:12 a.m.