碰到一个问题，请各位帮忙解惑！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

初学R，碰到一个问题，请各位帮忙解惑，谢谢！

定义一个功能为“计算整数向量中奇数个数”的函数，下面是编写过程和输出结果：
> oddcount<-function(x){
+ c==0
+ for(i in x){if(i%%2==1)c<-c+1}
+ return(c)}
oddcount(c(1,2,5,7,9,11))
[1] 5 6 7 8

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：请各位帮忙 Count 输出结果 odd DDC

把c == 0 改成 c <- 0 就可以了，
不过这样的编程不是R的风格，R的编程应该像这样：

1. oddcount <- function(x) {
   
2.     sum(x %% 2 == 1)
   
3. }

复制代码