R编写阶乘函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

编写R函数，计算阶乘（不能使用函数prod()）：

1、当输入正整数n时，输出n！

2、对输入量进行检测，若输入量小于0或为非整数，则给出警告信息；若输入量为0，则输出1.

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：prod 警告信息 警告信 Rod 正整数 正整数 检测 信息

1. pro<-function(n){
   
2.   if(n<0) print("warning: your input is wrong!")
   
3.   else if(n==0) print(1)
   
4.   else {
   
5.    s[1]=1
   
6.    for(i in 2:n){
   
7.      s[i]=i*s[i-1]
   
8.    }
   
9. return(s[n])
   
10.   }
    
11. }

复制代码

不过不知道怎么表示非整数。

也可以用gamma函数哈

飞天玄舞6 发表于 2016-11-4 18:38
不过不知道怎么表示非整数。

不行哦
“Error in s[1] = 1 : 类别为'closure'的对象不可以取子集”

hytaii 发表于 2016-11-4 21:54
不行哦
“Error in s[1] = 1 : 类别为'closure'的对象不可以取子集”

1. [code]pro<-function(n){
   
2.   if(n<0) print("warning: your input is wrong!")
   
3.   else if(n==0) print(1)
   
4.   else {
   
5.     s<-length(n)
   
6.     s[1]=1
   
7.     for(i in 2:n){
   
8.       s[i]=i*s[i-1]
   
9.     }
   
10.     return(s[n])
    
11.   }
    
12. }

复制代码

hytaii 发表于 2016-11-4 21:54
不行哦
“Error in s[1] = 1 : 类别为'closure'的对象不可以取子集”

1. pro<-function(n){
   
2.   if(n<0) print("warning: your input is wrong!")
   
3.   else if(n==0) print(1)
   
4.   else {
   
5.     s<-length(n)
   
6.     s[1]=1
   
7.     for(i in 2:n){
   
8.       s[i]=i*s[i-1]
   
9.     }
   
10.     return(s[n])
    
11.   }
    
12. }

复制代码

> pro(-2)
[1] "warning: your input is wrong!"
> pro(0)
[1] 1
> pro(3)
[1] 6
> pro(5)
[1] 120

飞天玄舞6 发表于 2016-11-4 22:09
> pro(-2)
[1] "warning: your input is wrong!"
> pro(0)

谢谢你哦~~

myfun<-function(n)return(factorial(n))

根据网友提出的意见，此函数有漏洞，在取1时出现错误，现改为如下：

1. pro<-function(n){
   
2.   if(n<0) print("warning: your input is wrong!")
   
3.   else if(n==0|n==1) print(1)
   
4.   else {
   
5.     s<-numeric()
   
6.     s[1]=1
   
7.     for(i in 2:n){
   
8.       s[i]=i*s[i-1]
   
9.     }
   
10.     return(s[n])
    
11.   }
    
12. }

复制代码

hytaii 发表于 2016-11-4 17:20
编写R函数，计算阶乘（不能使用函数prod()）：1、当输入正整数n时，输出n！2、对输入量进行检测，若输入量小 ...

你用for进行循环，i=1；for（i in n）{i=i+1；x=i*x}