Skip to content

[R-gui] extracting parts of words or extraxting letter to use in ifelse-func.

2 messages · joe85, Martin Maechler

Original
joe85
# 
Hello

I want to make some variables with the ifelse-function, but i don't know how
to do it.

I want to make these five variables;

b2$PRRSvac <- ifelse(b2$status=='A' | b2$status=='Aa',1,0) 
b2$PRRSdk <- ifelse(b2$status=='B' | b2$status=='Bb',1,0) 
b2$sanVac <- ifelse(b2$status=='C' | b2$status=='sanAa',1,0) 
b2$sanDk <- ifelse(b2$status=='D'  | b2$status=='sanBb',1,0) 
b2$totalvac <- ifelse(b2$status=='San',1,0)

And 

b2$UGT <- ifelse(b2$status=='UGT',1,0)
b2$KOM <- ifelse(b2$status=='KOM',1,0)

But, as one from this forum told me, it doesn't work because the words is in
a wrong format or something like that. 

I have attached the text-file i've used, and the R-kode. 

Hope anyone can help me?

 text-file;
 
http://n2.nabble.com/file/n2315072/allesd%2528uden%2Bf%25C3%25B8r%2529060209.txt
allesd%28uden+f%C3%B8r%29060209.txt 

R-kode (just run from line 1-22)
http://n2.nabble.com/file/n2315072/PRRS%2B%2528med%2Ballle%2BSD%2529.r
PRRS+%28med+allle+SD%29.r
Martin Maechler
# 
j> Hello

    j> I want to make some variables with the ifelse-function, but i don't know how
    j> to do it.

    j> I want to make these five variables;

    j> b2$PRRSvac <- ifelse(b2$status=='A' | b2$status=='Aa',1,0) 
    j> b2$PRRSdk <- ifelse(b2$status=='B' | b2$status=='Bb',1,0) 
    j> b2$sanVac <- ifelse(b2$status=='C' | b2$status=='sanAa',1,0) 
    j> b2$sanDk <- ifelse(b2$status=='D'  | b2$status=='sanBb',1,0) 
    j> b2$totalvac <- ifelse(b2$status=='San',1,0)

    j> And 

    j> b2$UGT <- ifelse(b2$status=='UGT',1,0)
    j> b2$KOM <- ifelse(b2$status=='KOM',1,0)

What has this to do with  R-gui ??????

Please use  R-help  for such questions !!!

Martin Maechler, ETH Zurich


        [................]