162 2

[问答] 求大佬解答一个小的循环问题 [推广有奖]

  • 0关注
  • 0粉丝

高中生

57%

还不是VIP/贵宾

-

威望
0
论坛币
203 个
通用积分
8.0000
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
129 点
帖子
4
精华
0
在线时间
67 小时
注册时间
2016-8-28
最后登录
2019-9-18

一名始得红颜衰0 发表于 2019-9-11 14:15:54 |显示全部楼层
70论坛币
捕获.PNG

如图我想实现一个循环,以第一行为例,取K从0到Number(即119),对数据进行循环求和最后生成AF现在这一栏数据是错的)。然后运用到这个list的每一行,就生成AF这一列,请问该如何编程...谢谢!
(如下图,求和是下面这样子的,Ep是常量)
捕获2.PNG


stata SPSS
药引子5 发表于 2019-9-13 13:07:29 |显示全部楼层
试一下这个吧
ep <- 0.5
fun_1 <- function(x){
  vec_1 <- 1:x
  vec_2 <- abs(vec_1/x - ep)*dbinom(vec_1,x,ep)
  result <- sum(vec_2)
  return(result)
}
AF <- vector("numeric", nrow(Fund03))
for(i in seq_along(AF)){
  AF[i] <- fun_1(Fund03$Number[i])
}
已有 2 人评分论坛币 学术水平 热心指数 信用等级 收起 理由
cheetahfly + 10 热心帮助其他会员
Sunknownay + 3 + 3 + 3 热心帮助其他会员

总评分: 论坛币 + 10  学术水平 + 3  热心指数 + 3  信用等级 + 3   查看全部评分

回复

使用道具 举报

不懂不装懂 发表于 2019-9-14 09:49:05 |显示全部楼层
fun_af<-function(x,c){
  af<- 0
  ep<- 0.5
  cc<-x[c]
  for (k in 0:cc) {
    af<-af+ abs(k/cc-ep)*dbinom(k,cc,ep)
  }
  return(af)
}

fund03$af<-apply(fund03, 1, fun_af,c="number")
已有 1 人评分论坛币 收起 理由
cheetahfly + 10 热心帮助其他会员

总评分: 论坛币 + 10   查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 我要注册

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2019-9-24 17:33