Исходные данные:

ch = data.frame(rost=round(rnorm(100,175,30)), ves=round(rnorm(100,65,19)), zarplata=abs(round(rnorm(100,25,70))*1000))

Задачи:

  1. Богатые пузаны (с зарплатой >90000 и весом >85 кг) подкупили одного из исследователей, чтобы он прибавил в записях к их росту 10 см. Известно, что подкупленный исследователь отвечал за каждую третью запись в таблице. Исправьте ошибку
  2. Определить средний (медианный и арифм.) вес людей, ростом более 180 см
  3. Отобрать для всех чётных наблюдений людей с зарплатой >25000, но <45000, либо с весом >70 кг, распределив их равномерно по группам A,B,C; не попавших в выборку определить в группу D. Использовать функцию ifelse. Группу для каждого наблюдения записать в новый столбец group.