R语言，自编函数

更新时间2022-05-31 19:24:50

编一个函数,实现输入一个大写字母，输出对应的小写字母，输入一个小写字母，输出对应的大写字母，如果输入的不是一个字母，则输出：“你输入的**不是一个字母！”

没学过R，查了下语法，以下程序参考：

test<-function() { a<-readline() ar<-charToRaw(a)[1] if (ar>=65 & ar<=90) {    print(tolower(a)) } else { if ((ar>=97) & (ar<=122)) {   print(toupper(a))   } else {     print(paste("你输入的",a,"不是一个字母！"))   }   } }  

自编函数在R中主要有两个目的，辅助检出代码中的错误，还有将重复计算程式化，提高效率。