Question

我有一个数据集（美国的医院和某些值，如“状态”，“心脏病发作率等”）。现在我想创建一个函数

function(outcome, num = "best")

其中结果是“XYZ的存活率”，而num是每个州的第十一医院（例如“存活率心脏病发作”和每个州关于存活率的第五佳医院）

我想用循环（我已经在.csv文件等中读取）

datasplit <- split(data, data$State) ## split data for every state
        results <- data.frame ## create an empty data frame


        for(i in 1:54){ ##well, 54 states
                        singlestate <- unsplit(datasplit[i], 1)
                        ordered <- singlestate[order(singlestate[,outcome], singlestate[,"Hospital.Name"], na.last=NA),]
                        ordered2 <- ordered[num,c("Hospital.Name", "State")]
                        results <-  rbind(results, ordered2)
        }

如果我运行此循环，我会收到错误：

Error in rep(xi, length.out = nvar) : 
  attempt to replicate an object of type 'closure'

我真的不明白为什么代码不起作用。如果您对数据感兴趣：http://www.file-upload.net/download-11083616/outcome-of-care-measures.csv.html

for循环错误

0 个答案: