怎么把r自定义方程中非结果变量导出（附编程例子）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我怎么才能把方程calculation计算得到的pxt数据导出来，放到 45×2的矩阵当中，我只能得到最后sum(s/(1.035596^n))的结果
market_force=c(1:45)
market_force_replicate<-as.data.frame(matrix(market_force,nrow=45,ncol=2))
a<-as.data.frame(matrix(NA,nrow=45,ncol=1))
calculation <- function (data){
  pxt<-matrix(NA,nrow=45,ncol=1)
  s<-as.data.frame(matrix(NA,nrow=45,ncol=1))
  pxt<-as.data.frame(exp(-data^(1-(2*rbeta(45,1000,1000)-1))))
  s[1,]<-pxt[1,]
  for (i in 2:45)
  {s[i,]<-s[i-1,]*pxt[i,]
  }
  sum(s/(1.035596^n))
}
result_100010000<-sapply(market_force_replicate,calculation)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：自定义 Calculation replicate ulation replica function matrix