R: de manière élégante pour déterminer les variables numériques dans un bloc de données

Voici le code que j'utilise pour trouver les variables numériques dans un bloc de données:

Data <- iris
numericvars <- NULL
for (Var in names(Data)) {
    if(class(Data[,Var]) == 'integer' | class(Data[,Var]) == 'numeric') {
        numericvars <- c(numericvars,Var)
    }
}
numericvars

Est-il moins loopy façon de le faire?

Croissante des objets dans une boucle n'est pas (numericvars <- c(numericvars,Var))

OriginalL'auteur Zach | 2011-06-22