r语言自编函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

编一个函数,实现输入一个大写字母,输出对应的小写字母,输入一个小写字母,输出对应的大写字母,如果输入的不是一个字母,则输出:“你输入的××不是一个字母！”<br>
希望大家帮忙解答。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言

1. #自定义函数
   
2. letterFunc <- function () {
   
3.   tmp1 <- readline(prompt = "pls enter a letter: ")
   
4.   if (tmp1 %in% letters)
   
5.     print(LETTERS[which(letters == tmp1)])
   
6.   else if (tmp1 %in% LETTERS)
   
7.     print(letters[which(LETTERS == tmp1)])
   
8.   else
   
9.     print("Wrong!")
   
10.   tmp2 <- readline(prompt = "Continue, y / n? ")
    
11.   if (tmp2 %in% c("Y", "y"))
    
12.     letterFunc()
    
13.   else
    
14.     print("Bye!")
    
15. }
    
16. 
    
17. letterFunc() #执行

复制代码

llb_321 发表于 2022-5-26 20:43

谢谢，我懂了