R/quick.norm.R

In akmeans: Adaptive Kmeans algorithm based on threshold

Defines functions quick.norm

Documented in quick.norm

quick.norm <-
function(A,mod=2){
  if (mod==1){
    t(apply(A,1,function(i){
      if (sum(i)==0) {return(i)}
      else {i/sqrt(sum(i^2))}}))
  } else if (mod==2){
    t(apply(A,1,function(i){
      if (sum(i)==0) {return(i)}
      else {i/sum(i)}}))
  }
}

Try the akmeans package in your browser