weixin_51474861 2023-02-06 15:47 采纳率: 33.3%
浏览 62
已结题

R语言,函数报错解决

#APdobs_NTPD.fn函数:计算NTPD观察值,长度为focalsp的长度

focalsp<-read.csv("1.csv",header=T,fileEncoding="GBK")  ##目标个体的种名
pdmatrix<-read.csv("2.csv",header=T,fileEncoding="GBK")#系统发育距离矩阵
sample<-read.csv("1.csv",header=T,fileEncoding="GBK")#周围邻体的其他种类
as.matrix(focalsp)
as.matrix(pdmatrix)
as.matrix(sample)
APdobs_NTPD.fn =function(focalsp,pdmatrix,sample)
  #focalsp为目标个体的种名,pdmatrix为系统发育距离矩阵(标准化成0-1,参考Liza的课件),spinsample为周围邻体的其他种类
{
  pdtofocal.min =numeric()
  for(i in 1:length(focalsp))
  {
    spinsample=rownames(sample)[sample[,i]!=0]
    spinsample.abund=sample[,i][sample[,i]!=0]
    focalsp.pos=which(rownames(pdmatrix)==focalsp[i])
    spinsample.pos=match(spinsample,colnames(pdmatrix))
    pdtofocal=numeric()
    for(j in 1:length(spinsample.pos))
    {
      pdtofocal[j]=pdmatrix[focalsp.pos,spinsample.pos[j]]
    }
    pdtofocal.min[i]=min(pdtofocal)
  }
  return(pdtofocal.min)
}

write.table(APdobs_NTPD.fn,"APdobs_NTPD.fn")

报错:Error in as.data.frame.default(x[[i]], optional = TRUE) :
cannot coerce class ‘"function"’ to a data.frame

  • 写回答

2条回答 默认 最新

  • 社区专家-Monster-XH 2023-02-06 16:09
    关注
    results <- APdobs_NTPD.fn(focalsp,pdmatrix,sample)
    write.table(results, "APdobs_NTPD.fn")
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 2月15日
  • 已采纳回答 2月7日
  • 创建了问题 2月6日

悬赏问题

  • ¥15 如何删除这个虚拟音频
  • ¥50 hyper默认的default switch
  • ¥15 网站打不开,提示502 Bad Gateway
  • ¥20 基于MATLAB的绝热压缩空气储能系统代码咨询
  • ¥15 R语言建立随机森林模型出现的问题
  • ¥15 中级微观经济学,生产可能性边界问题
  • ¥15 TCP传输时不同网卡传输用时差异过大
  • ¥15 请各位看看我写的属于什么算法,或者有更正确的写法?
  • ¥15 html5 qrcode 扫描器
  • ¥15 爬取网页信息并保存需要完整代码