R语言 自定义函数的编写

1.编写一个自定义函数，将百分制成绩换算为等级制成绩，换算标准为：A（大于等于90）、B（大于等于80）、C（大于等于70）、D（大于等于60）、E（大于等于60）。使用这个函数对一组学生成绩（98，56，81，46，75，66，92，82，78）进行换算。

 scores <- c(98,56,81,46,75,66,92,82,78)
> grades <- vector(length = length(scores))
> for (i in 1:length(scores)) {
+ if (scores[i] >= 90) {
+ grades[i] <- "A"
+ } else if (scores[i] >= 80) {
+ grades[i] <- "B"
+ } else if (scores[i] >= 70) {
+ grades[i] <- "C"
+ } else if (scores[i] >= 60) {
+ grades[i] <- "D"
+ } else {
+  grades[i] <- "F"
+  }}
> for(i in 1:length(scores)){  cat("成绩：",scores[i],"等级：",grades[i],"\n")}

运行结果:

2.编写一个自定义函数，输出九九乘法表。

>for(i in 1:9){
+ for(j in 1:i){
+ cat(j,"X",i,"=",i*j," ")
+ }
+ cat("\n")
+ }

运行结果