Anybody fix the code?

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)
)
student <- 0
for ( i in data$grade){
while( i > x ){
student <- i + student
i <- i + 1
print(length(student))
}
}

Answer 1

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)
)
student <- 0
for ( i in data$grade){
if ( i > x ){
student <- 1 + student
}
}
print(student)

Answer 2

#try this

for ( i in data$grade){
if ( i > x ){
student <- 1 + student
}
}
print(student)

Answer 3

I've just filtered the data and used length:

print(length(data$grade[data$grade>x]))

Answer 4

#it is easier using subset and length function

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)
)

student <- subset(data, data$grade > x)
print(length(student$grade))

Answer 5

You are using student as an integer. student needs to be a vector.

Answer 6

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)
)
i <- 1
student <- c()

#try this

for ( i in data$grade){
if ( i > x ){
student <- +i

}
print((student))
}

Now is right?

Answer 7

You tells like this type Student<- c()

Answer 8

This is a question
You have a dataframe that includes grades of students.
Your program needs to take a number as input, and output the number of students who have a grade greater than the given input.
For example, for the input 89, the output should be:
[1] 3
as 3 students have grades greater than 89.

Answer 9

You can either count the number of students whose grades meet the condition by adding up an integer or collect them and print the length of the resulting vector. Anyways, don't print inside the loop, but rather only once after the loop.

Another approach on the task is subsetting and indexing (no loop). Maybe you would like to check this approach?
https://www.sololearn.com/Discuss/2883382/?ref=app

Answer 10

No, its not correct

Answer 11

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)
)
student <- 0
for ( i in data$grade){
if ( i > x ){
student <- 1 + student
}
}
print(student)

Answer 12

Please don't post 'answer-only' comments with ready-made code and without any explanation.

Answer 13

lra <- subset(data, grade>x)
print(length(lra$grade))

Answer 14

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(nrow(data[data$grade>x,]))

Answer 15

i done like this

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)
)
pass<-factor(c(data$grade[data$grade>x]))
print(length(pass))

Answer 16

#try this

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)
)

bigger <- data$grade[x<data$grade]

print(length(bigger))

Answer 17

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)
)
student <- 0
for ( i in data$grade){
if ( i > x ){
student <- 1 + student
}
}
print(student)