lapply, rowSums et arguments passign

Question

Tenir compte de ce code

lapply(lst,rowSums) 

lst est une liste de cinq trames de données. Chaque trame de données a, par exemple, quatre colonnes et dix lignes. Je veux ajouter les valeurs des colonnes dans chaque ligne, cependant, je ne veux pas inclure la valeur de colonne un dans la somme.

je peux utiliser une boucle for et le code ci-dessous:

lst_sum = list() 
for (ii in c(1,5)) 
{ 
dummy <- lst[[ii]] 
dummy <- rowSums(dummy[,seq(2,4,by = 1)]) 
lst_sum[[ii]] = dummy 
} 

Je voudrais utiliser lapply ou une fonction similaire parce que je pense que les boucles for semble laid et inefficace.

Answer 1

Avec l'aide de commentaires que j'obtenu cette solution:

lapply(lst,function(x) rowSums(x[,seq(2,4,by = 1)]))