7. Nominative Data Analysis

• К частям таблицы можно обращаться так же, как и к матрицам. HairEyeColor - таблица с данными, встроенными в R. Посмотрите на неё в R. Команда dimnames(HairEyeColor) позволит нам посмотреть, какие измерения есть в этой таблице и как они называются. Например, чтобы обратиться к части таблицы, в которой хранятся данные только о мужчинах, нам нужно выполнить следующую команду: HairEyeColor[ , ,'Male'] Ваша задача в переменную red_men сохранить долю рыжеволосых (Red) от общего числа голубоглазых мужчин. Обратите внимание, что нужны не проценты, а просто доля, то есть десятичная дробь (например, не 10%, а 0.1).

male <- HairEyeColor[ , ,'Male']
str <- prop.table(male, 2)
red_men <- str[3,2]
OR
prop.table(HairEyeColor[ , ,'Male'],2)['Red','Blue']
OR
t1 <- prop.table(HairEyeColor[, , 'Male'], 2)
red_men <- (t1['Red','Blue'])

• C таблицами, как и с матрицами, можно совершать разные арифметические операции, например, суммировать все элементы таблицы. Напишите число зеленоглазых женщин в наборе данных HairEyeColor.

sum(HairEyeColor[,,'Female'][,'Green'])