ifelse problem

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.