Deutsches R-Forum

$Species ist ein Faktor, das Ergebnis von typeof() ist "integer", weil Faktoren intern als integer kodiert werden.

Gruß, Jörg

Hallo Peter, hast Du die Datei so eingelesen? library("data.table") df1 <- fread("http://forum.r-statistik.de/download/file.php?id=1609") Dabei werden die Zeilen nur durchnummeriert. Was passt Dir an den Nummern nicht? Notfalls kann man Zeilennammen immer löschen mit rownames(df1...

zumindest muss man durch die Nutzung von sapply() nicht den unlist()-Kopfstand machen.

Hallo Thomas,

es ist kein sapply() sondern ein lapply(), was dort in permn() (oder auch combn()) eingebaut ist. Die Funktion kann ein beliebiges Objekt zurückliefern, ein Argument simlify= ist nicht vorhanden. Deshalb noch unlist(...).

Gruß, Jörg

Hallo LeaRn, wenn Dir zwei Zeilen noch zuviel sind, kann die Funktion auch als anonyme Funktion Eingang in den Code finden. Für die Kombinationen wird das Paket combinat nicht benötigt -- eine Funktion combn() gibt es auch im Paket utils , welches standardmäßig installiert und geladen ist. In Deinem...

Hallo LeaRn, bei mir sieht das so aus (falls ich alles richtig verstanden habe): set.seed(42) datenstruktur <- matrix(rnorm(25), ncol = 5, nrow = 5) library("combinat") mySum <- function(Cols) sum(datenstruktur[cbind(1:5, Cols)]) unlist(permn(5, mySum)) Da ist ein besonderer Kunstgriff dri...

Hallo Robin,

willkommen im Forum!
So kommt der Fehler zustande Wenn Du das so machen willst, solltest Du die Schleife eine Runde weniger drehen lassen: Gruß, Jörg

Hallo Selina,

ja, geht: Gruß, Jörg

Hallo PAXON, willkommen im Forum! Klar geht das: X <- c(4, 6, 8) Y <- 8:9 Pxy <- matrix(c(.03, .02, .05, .07, .18, .65), 3) Ex <- weighted.mean(X, rowSums(Pxy)) # oder auch sum(X*rowSums(Pxy)) Ey <- weighted.mean(Y, colSums(Pxy)) varX <- sum((X-Ex)^2*rowSums(Pxy)) varY <- sum((Y-Ey)^2*colSums(Pxy)) ...

Hallo Daan,

das passende Verfahren nennt sich Clusteranalyse.

Gruß, Jörg