Dans R, ce qui est la façon la plus simple de mettre à l'échelle un vecteur un vecteur unitaire?

Dans R, ce qui est la façon la plus simple de mettre à l'échelle un vecteur un vecteur unitaire?

Par exemple, supposons que

>vec
[1] 1 0 2 1

Et

>vec / sqrt(sum(vec^2)) 
[1] 0.4082483 0.0000000 0.8164966 0.4082483

est son vecteur unitaire.

Est-il une fonction intégrée dans la R?

R semble encore faible sur le calcul matriciel fonctionnalité
La fonction de base scale() peut faire sqrt(sum(x^2)/(n-1)), mais ce n'est pas tout à fait à ce que vous recherchez.

OriginalL'auteur Tom | 2014-12-13

  1. 7

    Vous pourriez faire vous-même une fonction:

    scalar1 <- function(x) {x / sqrt(sum(x^2))}

    Maintenant seulement utiliser:

    > scalar1(vec)
[1] 0.4082483 0.0000000 0.8164966 0.4082483
    0.4082483 n'est pas connue et doit être calculé à partir de vec. Ce que je veux dire c'est que si y est une fonction intégrée dans la R pour les ce. Par exemple, si il y a un peu aaa par lequel aaa(vec, ...) = c(0.4082483, 0.0000000, 0.8164966, 0.4082483)
    De ma compréhension, il n'y a pas de fonction intégrée pour faire x / sqrt(sum(x^2)), mais vous pourriez faire votre propre rapide de la fonction. J'ai édité la réponse pour en tenir compte. Cela vous aide?
    Merci quand même. Je sais aussi que c'est une méthode et me demande simplement qu'il y a peut être une fonction intégrée dans la R pour une commune de calcul que je n'ai pas trouvé.

    OriginalL'auteur

  2. 2

    La ppls paquet contient la fonction normalize.vector, qui fait exactement ce que vous voulez. Cependant, le chargement d'un paquet semble pas beaucoup plus simple que d'entrer dans une ligne de définition de la fonction-vous...

    Que le paquet ppls implémente la fonction signifie probablement qu'il n'existe pas de norme de la fonction R pour atteindre cet objectif. (Sauf si, bien sûr, l'auteur de ppls était tout simplement pas conscients de la norme de la fonction...)

    OriginalL'auteur Stibu