This is my code for the grade analysis question

Question

input <- readLines('stdin')
x <- as.integer(input[1])

data <- data.frame(
"id" = c(1:10),
"grade" = c(75, 26, 54, 90, 86, 93, 48, 71, 66, 99)
)
print(length(data,grade>x))

Answer 1

Don't make another thread, you can add in same question

https://www.sololearn.com/Discuss/3061415/?ref=app

Answer 2

Thandolwenkosi

y = data[data$grade > x, ]

print(length(y$grade))

Answer 3

Thank you