[R] ifelse problem

[Randy Walters]

Could someone help me with the following code snippet.  The results are not
what I expect:

> Sheet1$Claims[1:10]
 [1] NA  1  2 NA NA NA NA NA NA NA

> Sheet1[1:10,"SubmissionStatus"]
 [1] Declined  Bound     Bound     Bound     Bound     Bound     Declined 
Dead      Declined 
[10] Not Taken
Levels: Bound Dead Declined Not Taken

> Sheet1$Claimsnum <- NA
> Sheet1$Claimsnum <- ifelse(Sheet1$SubmissionStatus != "Bound",99999,
+                     
ifelse(as.character(Sheet1$Claims)=="NA",0,Sheet1$Claims))
> 
> Sheet1$Claimsnum[1:10]
 [1] 99999     1     2    NA    NA    NA 99999 99999 99999 99999
> 

Here is Str(Sheet1)

 $ Claims                     : num  NA 1 2 NA NA NA NA NA NA NA ...
 $ SubmissionStatus           : Factor w/ 4 levels "Bound","Dead",..: 3 1 1
1 1 1 3 2 3 4 ...


I would expect Sheet1$Claimsnum[4] to be 0, since the true condition of the
2nd ifelse evaluations to 0.
Without the "as.character" the results are still not the way I want them:

> Sheet1$Claimsnum <- ifelse(Sheet1$SubmissionStatus != "Bound",99999,
+                      ifelse(Sheet1$Claims==NA,0,Sheet1$Claims))
> Sheet1$Claimsnum[1:10]
 [1] 99999    NA    NA    NA    NA    NA 99999 99999 99999 99999
> 

Much thanks!,

Randy



-- 
View this message in context: http://www.nabble.com/ifelse-problem-tp14438449p14438449.html
Sent from the R help mailing list archive at Nabble.com.