1. Variables

• Инструкция сдачи задач на R Очень важная часть нашего курса - это практические задания, которые вы должны решить, используя язык R. В этом стэпе мы разберем пример задачи и обсудим несколько моментов, которые позволят сделать ваше знакомство с R более продуктивным, а решение задач интересным и полезным!

Все практические задачи будут требовать от вас написать код, используя команды языка R, которые мы разбираем в видео уроках. Мы уже научились создавать переменные, давайте решим нашу первую задачу вместе.

Условие задачи:

Создайте переменную my_number и сохраните в нее число 42. Создайте переменную my_logical_var и сохраните в нее логическое значение TRUE.

my_number <- 42 _my_logical_var <- TRUE _

• В уже созданной переменной var_1, в хранится целое число. Создайте новую переменную var_2, которая равняется var_1 умноженная на 10.

var_2 <- var_1 * 10

• так, наша первая самостоятельная задача! Иногда в переменной бывает полезно хранить информацию о том, как соотносятся между собой другие переменные, которые мы используем в работе. Рассмотрим следующий пример:

В уже созданных переменных number_1, number_2 и number_3, сохранены целые числа. Проверьте, действительно ли сумма первых двух чисел строго больше, чем третье число. Результат сравнения (TRUE или FALSE) сохраните в новую переменную с именем result.

result <- number_1+number_2 > number_3

• При помощи функции с() мы можем объединять не только несколько чисел, но сразу несколько векторов. Создайте переменную the_best_vector, в которой хранятся числа от 1 до 5000 и затем числа от 7000 до 10000.

the_best_vector <- c(c(1:5000), c(7000:10000))

• В уже созданной переменной my_numbers сохранен вектор из 20 целых чисел. Ваша задача создать новую переменную my_numbers_2, в которой будет сохранен 2, 5, 7, 9, 12, 16 и 20 элемент вектора my_numbers.

my_numbers_2 <- my_numbers[c(2,5,7,9,12,16,20)]

• В уже созданной переменной my_vector хранится вектор из 20 целых чисел. Найдите сумму всех элементов вектора , которые больше 10. Сохраните сумму в переменную my_sum.

my_sum <- sum(my_vector[my_vector>10])

• В векторе my_vector отберите только те наблюдения, которые отклоняются от среднего меньше чем на одно стандартное отклонение. Сохраните эти наблюдения в новую переменную my_vector_2.
  При этом исходный вектор my_vector оставьте без изменений.

my_vector_2 <-my_vector[my_vector > abs(mean(my_vector) - sd(my_vector)) & my_vector < abs(mean(my_vector) + sd(my_vector))]