作者nh2 (nh)
看板R_Language
标题Re: [问题] if elso loop不能接着执行？
时间Sun Nov 2 22:42:24 2014
※ 引述《Edster (Edster)》之铭言：
: best <- function(x, y){
: z <- c("heart attack", "heart failure", "pneumonia")
: outcome <- read.csv(file="outcome-of-care-measures.csv", header=T, as.is=T)
: SS <- as.numeric(outcome[,11])
: if (! (x %in% outcome$State) | ! (y %in% z)){
: stop("Error in best(state, outcome) : invalid state")
: }
: if (y == "heart attack"){
: select = outcome$State == x & !is.na(SS); o = order(SS)
: result <- outcome[o[select],c(1,2)]
: print(paste("best (", result, ") heart attack"))
: }
: }
请问从倒数第三行(select = outcome$State....)之後，
为何我用
o <- order(SS[select])
outcome.order <- outcome[o, ]
结果outcome.order还是有NA值存在？
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.175.163.115
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/R_Language/M.1414939348.A.EBB.html
1F：推 Edster: 看来问题出现在order. 那麽就得要老老实实的把 11/04 23:26
2F：→ Edster: order 跟 is.na 分开了. 11/04 23:26
3F：推 Edster: outcome = outcome[order(as.numeric(outcome[,11])),] 11/04 23:51
4F：→ Edster: select = outcome$State == x & !is.na( 11/04 23:53
5F：→ Edster: (as.numeric(outcome[,11])) 11/04 23:53
6F：→ Edster: result <- outcome[select,c(1,2)] 11/04 23:53
7F：→ Edster: 变得有点丑... 现下也想不到更好的方式. 11/04 23:55