R/sumn0.R

Defines functions sumn0

sumn0=function(x) {
  if(sum(x)==0) {return(sum(x))
  }else{return(length(x)*mean(x[which(x!=0)]))}
}
Hlch1992/ARZIMM documentation built on Feb. 11, 2020, 2:34 a.m.