R语言,自编函数
编一个函数,实现输入一个大写字母,输出对应的小写字母,输入一个小写字母,输出对应的大写字母,如果输入的不是一个字母,则输出:“你输入的**不是一个字母!”
没学过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中主要有两个目的,辅助检出代码中的错误,还有将重复计算程式化,提高效率。
热门标签: