R/mydiag.R
In autoMFA: Algorithms for Automatically Fitting MFA Models

mydiag <- function(d){
  if(length(d)==1 && d%%1!=0){return(d)}else{
    return(diag(d))
  }

}

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

autoMFA documentation built on Aug. 10, 2021, 5:07 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the autoMFA package in your browser