R报错Error in as.data.frame.default(x[[i]], optional = TRUE) :-经管之家官网！

经济学管理学金融学统计学

您当前的位置> 考研考博>>

R报错Error in as.data.frame.default(x[[i]], optional = TRUE) :

发布：kkykim | 分类：考研

关于本站

人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

提供"微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯"等虚拟账号交易，真正实现买卖双方的共赢。【请点击这里访问】

TOP热门关键词

专题页面精选

最近在做多样性分析的时候，代码总是报错，错误为Errorinas.data.frame.default(x[],optional=TRUE):cannotcoerceclass‘"function"’toadata.frame，但是之前是可以运行的，数据换了很多格式还是不行，所以请各 ...

免费学术公开课,扫码加入

最近在做多样性分析的时候，代码总是报错，错误为Error in as.data.frame.default(x[], optional = TRUE) :
cannot coerce class ‘"function"’ to a data.frame，但是之前是可以运行的，数据换了很多格式还是不行，所以请各位大佬指点，到底是啥原因，多谢大佬！
代码如下：
setwd("D:/RDATA")
otu <- read.csv('7samplespearman.csv', row.names = 1, sep = '\t', stringsAsFactors = FALSE, check.names = FALSE)
otu <- t(otu)
library("vegan")
library("picante")
alpha <- function(x, tree = NULL, base = exp(1)) {
est <- estimateR(x)
Richness <- est[1, ]
Chao1 <- est[2, ]
ACE <- est[4, ]
Shannon <- diversity(x, index = 'shannon', base = base)
Simpson <- diversity(x, index = 'simpson')
Pielou <- Shannon / log(Richness, base)
goods_coverage <- 1 - rowSums(x == 1) / rowSums(x)
result <- data.frame(Richness, Shannon, Simpson, Pielou, Chao1, ACE, goods_coverage)
if (!is.null(tree)) {
PD_whole_tree <- pd(x, tree, include.root = FALSE)[1]
names(PD_whole_tree) <- 'PD_whole_tree'
result <- cbind(result, PD_whole_tree)}
result}
write.csv(alpha, 'D:/RDATA/otu_alpha.csv', quote = FALSE)
Error in as.data.frame.default(x[], optional = TRUE) :
cannot coerce class ‘"function"’ to a data.frame

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP

本文关键词：
本文论坛网址：https://bbs.pinggu.org/thread-7489645-1-1.html

R报错Error in as.data.frame.default(x[[i]], optional = TRUE) :-经管之家官网！

考研