Кто решил задание по я.п. R: Tinanic Survivors?

Answer 1

#попробуй это

x <- read.csv('/usercode/files/titanic.csv')
x <- x[x$Age>=18,]
print(tapply(x$Pclass, x$Survived, mean))

Answer 2

Отлично, сработало.
Спасибо.

Answer 3

Вот мой код
x <- read.csv('/usercode/files/titanic.csv')
y <- x[x$Survived==1,]
tapply(y$Pclass,y$Age>=18, mean)
Не пойму в чем ошибка.