R you functional? (2)

Можлива реалізація функції interpret() уже надана. У цій вправі ви напишете іншу функцію, яка використає interpret() для інтерпретації всіх даних про щоденні перегляди вашого профілю, зібраних у векторі. Крім того, за потреби ваша функція повертатиме суму переглядів у популярні дні. Для проходження всіх елементів вектора ідеально підходить цикл for. Можливість повертати суму переглядів у популярні дні можна реалізувати через аргумент функції зі значенням за замовчуванням.

Ця вправа є частиною курсу

Середній рівень R

Переглянути курс

Інструкції до вправи

Завершіть шаблон функції interpret_all():

Зробіть return_sum необов'язковим аргументом, тобто зі значенням TRUE за замовчуванням.
Усередині циклу for пройдіться по всіх views: на кожній ітерації додайте результат interpret(v) до count. Пам'ятайте, що interpret(v) повертає v для популярних днів і 0 — інакше. Водночас interpret(v) також щось виводитиме у консоль.
Завершіть конструкцію if:
Якщо return_sum дорівнює TRUE, поверніть count.
Інакше поверніть NULL.

Викличте щойно визначену функцію як для linkedin, так і для facebook.

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

# The linkedin and facebook vectors have already been created for you
linkedin <- c(16, 9, 13, 5, 2, 17, 14)
facebook <- c(17, 7, 5, 16, 8, 13, 14)

# The interpret() can be used inside interpret_all()
interpret <- function(num_views) {
  if (num_views > 15) {
    print("You're popular!")
    return(num_views)
  } else {
    print("Try to be more visible!")
    return(0)
  }
}

# Define the interpret_all() function
# views: vector with data to interpret
# return_sum: return total number of views on popular days?
interpret_all <- function(views, return_sum) {
  count <- 0

  for (v in views) {

  }

  if (return_sum) {

  } else {

  }
}

# Call the interpret_all() function on both linkedin and facebook

Редагувати та запускати код