Véritable racine cubique d'un nombre négatif

Je suis en train de voir si il existe une fonction pour obtenir directement le réel, la racine cubique d'un nombre négatif. Par exemple, dans Java, il y a le Math.cbrt() fonction. Je suis à la recherche de l'équivalent en R.

Sinon, mon hack est:

x <- -8
sign(x) * abs(x)^(1/3)

qui est très inélégant et fastidieux à taper à chaque fois. Thx!

OriginalL'auteur Zhang18 | 2012-11-05

  1. 22

    Sonne comme vous avez juste besoin de définir votre propre Math.cbrt() fonction.

    Qui fera tourner effectuant l'opération à partir de quelque chose inélégant et encombrant à quelque chose de propre, expressif, et facile à appliquer:

    Math.cbrt <- function(x) {
    sign(x) * abs(x)^(1/3)
}

x <- c(-1, -8, -27, -64)

Math.cbrt(x)
# [1] -1 -2 -3 -4

    OriginalL'auteur Josh O'Brien

  2. 3

    Dans R, vous aurez probablement besoin de définir une nouvelle fonction qui limite les résultats à vos objectifs:

    > realpow <- function(x,rad) if(x < 0){ - (-x)^(rad)}else{x^rad}
> realpow(-8, 1/3)
[1] -2
> realpow(8, 1/3)
[1] 2

    Il est possible de faire un infixe opération si vous citez l'opérateur et l'utilisation environnant "%" signes en son nom. Parce que sa priorité est faible, vous devez utiliser des parenthèses, mais vous semblent déjà le savoir.

    > `%r^%` <- function(x, rad) realpow(x,rad)
>  -8 %r^% 1/3
[1] -2.666667    # Wrong
> -8 %r^% (1/3)
[1] -2   #Correct

    D'accord à l'intégration de l'interlocuteur de la version de son vectorisé capacité:

    `%r^%` <- function(x, rad) sign(x)*abs(x)^(rad)
    Bonne idée à l'aide de la % raccourci. Bien que je pense de son "hack" est probablement la meilleure (et c'est vraiment pas un hack, vous êtes fondamentalement juste d'affacturage le numéro!). Donc, vous pourriez faire realpow <- function(x,rad) abs(x)^(rad)*sign(x)^(1/rad) de sorte que vous n'avez pas à faire une ifelse
    Vous avez raison, surtout pour le fait que votre version est vectorisé.

    OriginalL'auteur 42-

  3. 0

    En Java quelque chose comme ceci :

    There are 3 cube-roots. Assuming you want the root that is real, you should do this:

x = 8;  //  Your value

if (x > 0)
    System.out.println(Math.pow(x, 1.0 / 3.0));
else
    System.out.println(-Math.pow(-x, 1.0 / 3.0));
    Il est à la recherche de la réponse dans la R
    Voir ce lien stat.ethz.ch/pipermail/r-help/2010-October/257639.html
    Ce lien n'est pas réellement répondre à sa question. Lire le matériel avant de le recommander.
    Votre vraiment aider avec vos commentaires négatifs. Au moins, je suis à fournir de l'aide à répondre à la question. Semble que vous ne pouvez pas aider de manière significative. Et à la suite de la note, le lien qui explique d'ailleurs qu'il peut ne pas être possible, car les résultats 3 réponses possibles! lire avant de perdre votre temps avec votre décourager les commentaires désobligeants
    Je upvoted pour exactement le raisonnement ci-dessus. Ce n'était pas de R, mais il était utile de l'information, comme l'était votre lien à la r-aider les services d'Archives.

    OriginalL'auteur topcat3