Функция не возвращает никакого значения при вызове - PullRequest
0 голосов
/ 12 июня 2019

Я пытаюсь создать другую функцию, которая принимает все имена столбцов.Эта функция будет определять, является ли каждая переменная (столбец данных) числовой.Для каждой числовой переменной функция выведет среднее значение с именами ваших столбцов.Это заголовок фрейма данных (TitanicDF), который я пытаюсь выполнить здесь.

     Survived Pclass    Sex   Age  Fare  Cabin Embarked FamilyNum
        1      1      female  38   71.28   C85        C         1
        1      1      female  35   53.10  C123        S         1
        0      1      male    54   51.86   E46        S         0
        1      3      female   4   16.70    G6        S         2
        1      1      female  58   26.55  C103        S         0
        1      2      male    34   13.00   D56        S         0

Я создал цикл for, который просматривает все имена столбцов и использует утверждение if, чтобы определить, является ли столбецявляется числовым

name <- colnames(TitanicDF)

func2 <- function(col_names, df){
  for (val in col_names) {
    if (class(val) == "numeric"){
      avg <- mean(df$val)
      print(avg)

    }
  }
}

func2(name, TitanicDF)

, когда я вызывал функцию, очевидно, можно рассчитать и напечатать среднее для возраста столбца, тарифа и FamilyNum.Но когда я вызвал эту функцию, здесь ничего не возвращается.Я действительно запутался здесь.

...