A<-c(60,70,65,40,45) B<-c(2,3,6,1,7) mean(A) mean(B) A+B A*B

nilai<-function(x){ cat(“Nilai Anda:”,x,“Mendapatkan”) if (x>=0 && x<50){ cat(“Grade E”) } if(x>=50 && x<60){ cat(“Grade D”) } if(x>=60 && x<70){ cat(“Grade C”)} if(x>=70 && x<80){ cat(“Grade B”)} if(x>=80 && x<100){ cat(“Grade A”)} } nilai(90) nilai(59)