Contribution des invidivus

contrib.r

 # Individus
  ## Contribution relative
  result$ind$qlt <- matrix(unlist(lapply(1:nbIndv, function(indv){
      (result$ind$coords[indv, ]**2) / sum(result$ind$coords[indv, ]**2)
    })), nrow = nbIndv, ncol = nbComps, byrow = TRUE);
  colnames(result$ind$qlt) <- colnames(result$ind$qlt, do.NULL = FALSE, prefix = "Comp. ");

  ## Contribution absolue
  result$ind$ctr <- matrix(unlist(lapply(1:nbComps, function(axe){
      result$ind$coords[, axe]**2 / (nbIndv * eigenvalues[axe])    
    })), nrow = nbIndv, ncol = nbComps);
  colnames(result$ind$ctr) <- colnames(result$ind$ctr, do.NULL = FALSE, prefix = "Comp. ");