[SOLVED] What's wrong in this code?

Question

***Titanic Survivors***
You are working on the Titanic Survivors data set, which includes information on the passengers of the ship.
The data is stored in a CSV file, which is already imported in the given code.
You want to understand how the class of the ticket impacted the survival rate. For that, you need to find and output the mean class value for the passengers who are adults (Age >= 18), grouped by the Survived column.

////////////////////////////////////////////////////

x <- read.csv('/usercode/files/titanic.csv')

#your code goes here

y <- x[x$Survived == 1, mean(x$Pclass)]
z <- x[x$Survived == 0, mean(x$Pclass)]

print(mean(y))
print(mean(z))

//////////////////////////////////////
https://code.sololearn.com/cNCjN1gN0NY3/?ref=app
https://code.sololearn.com/c5RgUl0RAuwv/?ref=app

Answer 1

I solved my problem, finally! :)

Answer 2

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

Answer 3

Please put your code in a playground script instead of copying it in the description.

Read the task instruction carefully: It's only passengers who were minimum 18 years old.

Plus, I think, they intend us to use tapply or something like that.

Answer 4

In version 2 remove the == 1 because we want to see both groups and again: only passengers >= 18

Answer 5

Mohamed Essaied Hamrita
Thanks a lot for the comment. I've already solved the problem, as you see before 1 month ago. :)
Happy coding!

Answer 6

print (c(by(x$Pclass[x$Age >= 18],x$Survived[x$Age >= 18], mean)))

Answer 7

print (c(by(x$Pclass[x$Age >= 18],x$Survived[x$Age >= 18], mean)))

Answer 8

These codes works with me

xx <- x[x$Age >= 18,]
c(by(xx$Pclass ,xx$Survived, mean))

Answer 9

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

Answer 10

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

Answer 11

The given code takes 3 numbers as input.
Complete the program to output the maximum of the 3 inputs.

Answer 12

#print(x)
y <- x[(x$Age>=18), ]
#print(y)
z <- c(by(y$Pclass,y$Survived,mean))
print(z)

Answer 13

This one Lisa
https://code.sololearn.com/cNCjN1gN0NY3/?ref=app

Answer 14

Lisa look at this please, when I use tapply, I don't understand what's wrong :(

https://code.sololearn.com/c5RgUl0RAuwv/?ref=app

Answer 15

(The input file doesn't work on playground, I think)

Answer 16

Lisa
It works but I couldn't apply the age range, I mean only age >= 18 so the result in the playground a little bit different than it wants
I made it buddy, now it works correctly :)

Answer 17

Thanks Lisa :)

Answer 18

I also have a problem with this code it doesn't take input, but I run it correctly in rstudio
x <- read.csv('/usercode/files/titanic.csv')
y <- x[x$Age >= 18, ]
print(y)
z <- c(by(y$Pclass,y$Survived,mean))
print(z)

Answer 19

Here is a more detailed solution

x <- read.csv('/usercode/files/titanic.csv')
#filtering by age first
age <- subset(x, Age >=18)
#then calculating mean
meanByClass <- by(age$Pclass, age$Survived, mean)
res <- c(meanByClass)
print(res)