Wie untersuchen Sie den code in eine Funktion in R, die das Objekt der Klasse sensibel

Ich versuche, eine Funktion schreiben, die einen bestimmten job tun (in meinem Fall, die analyse eines Datensatzes für "Ausreißer"), so dass die ersten Dinge, die ich tun möchten, ist Blick auf, was andere Menschen getan haben, ähnliche stellen.

Kann ich tun, das laden eines bestimmten Pakets und untersuchen Sie den code der Funktion, sondern einige Funktionen scheinen davon abzuhängen, welche Klasse von Objekt, das Sie um sich werfen

>library(outliers)
> fix(outlier)

function (x, opposite = FALSE, logical = FALSE) 
{
    if (is.matrix(x)) 
        apply(x, 2, outlier, opposite = opposite, logical = logical)
    else if (is.data.frame(x)) 
        sapply(x, outlier, opposite = opposite, logical = logical)
    else {
        if (xor(((max(x) - mean(x)) < (mean(x) - min(x))), opposite)) {
            if (!logical) 
                min(x)
            else x == min(x)
        }
        else {
            if (!logical) 
                max(x)
            else x == max(x)
        }
    }
}

Wie kann man sich den code von etwas, das ändert sich je nach dem Objekt ?

Edit:

OK, Palm <- Gesicht. Die Funktion habe ich als Beispiel verwendet nur Anrufe selbst, aber allt er code ist es... ich habe gesehen, andere Beispiele (aber kann nicht jeder denken offhand), wo die Funktion haben, andere Dinge, je nach der Klasse des Objekts geworfen, so stellt sich die Frage, auch wenn es ein schlechtes Beispiel !

InformationsquelleAutor PaulHurleyuk | 2009-09-17
Schreibe einen Kommentar