gelten Verwendung: Falsche Anzahl der Dimensionen

Question

data <- data.frame(A = c(1:4), B = c(10:13), C = c(19:22)) 

Ich möchte + 1/A 1/C Zeile berechnen weise

df$calc <- apply(data, 2, function(x) sum(1/x[,c(1,3)]) 

Error in x[, c(1, 3)] : incorrect number of dimensions 

Ich sehe nicht, warum ich hier einen Fehler bekommen sollte, wenn

fun<- function(x){ 

f <- sum(1/x[,c(1,3)]) 
return(f) 
} 

fun(data[1,]) 
1.052632 

Arbeiten ohne Probleme

Answer 1

Wir rowSums tun können, wie es

vektorisiert wird

data$calc <- rowSums(1/data[c("A", "C")]) 

Oder eine andere effiziente Option ist

Reduce(`+`, 1/data[c("A", "C")]) 

Answer 2

I

df <- apply(data, 1, function(x) sum(1/x[c(1,3)])) glauben, was Sie