用R语言的自编函数判断一个数的奇偶性，在下面的错误代码中进行改动

Question

myfunction<-function(a){
if(i%%2==0)print("偶数")else print("奇数")
}
myfunction(a)

Answer 1

md<-function(i)
{
if(i%%2==0)
{a=c("偶数")}
else if(i%%2==1)
{a=c("奇数")}
else
{a=c("非整数")}
print(a)
}追问

如果判断一组数的最值该怎么写呢？

可以加财富值

本回答被提问者采纳