#install.packages("entropart")
library(entropart)
urb_data <- read.csv("F:/yuncundata/YyCdata/WQM.csv", header = TRUE)
head(urb_data)
urb_Ns <- as.AbdVector(urb_data)
urb_Ps <- as.ProbaVector(urb_data)
plot(urb_Ns)
Hurlbert(urb_Ps, 2)
Hurlbert(urb_Ns, 2)
以上代码是将WQN这个数据整体导入计算Hurlbert指数。我想修改上述代码，希望每次只读取csv文件的一个行数行来计算Hurlbert这个指数的值。然后将每次计算的值依次输出，汇总成一个csv表格。一行数据值都是“0”时（如：city1行），数据无法计算，还希望输出一个标识。还请R大神指点，感激不尽。（示例数据已上传 ）