R help - Feb 2009 - extracting parts of words or extraxting letter to use in ifelse-func.

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://www.nabble.com/file/p21993098/allesd%2528uden%2Bf%25C3%25B8r%2529060209.txt
allesd%28uden+f%C3%B8r%29060209.txt 

R-kode (just run from line 1-22) ;
http://www.nabble.com/file/p21993098/PRRS%2B%2528med%2Ballle%2BSD%2529.r
PRRS+%28med+allle+SD%29.r 
-- 
View this message in context:
http://www.nabble.com/extracting-parts-of-words-or-extraxting-letter-to-use-in-ifelse-func.-tp21993098p21993098.html
Sent from the R help mailing list archive at Nabble.com.

hey Joe,
I had a quick look at your code. In this line:

b2$PRRSvac <- ifelse(b2$status=="MS-X,
PRRS-pos"|b2$status=="R?d
SPF+Myc+Ap2+DK+Vac",1,0)

some special characters are used. You must use only plain ascii characters
Hope this help.

Cheers,

Patrizio

2009/2/13 joe1985 <johannes at dsr.life.ku.dk>:
>
> 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://www.nabble.com/file/p21993098/allesd%2528uden%2Bf%25C3%25B8r%2529060209.txt
> allesd%28uden+f%C3%B8r%29060209.txt
>
> R-kode (just run from line 1-22) ;
> http://www.nabble.com/file/p21993098/PRRS%2B%2528med%2Ballle%2BSD%2529.r
> PRRS+%28med+allle+SD%29.r
> --
> View this message in context:
http://www.nabble.com/extracting-parts-of-words-or-extraxting-letter-to-use-in-ifelse-func.-tp21993098p21993098.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

Hi

r-help-bounces at r-project.org napsal dne 13.02.2009 10:38:31:
> 
> 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) 
Basically you do not need ifelse

b2$status=='San'

gives you logical vector and you can directly multiply it by 1 to get 1 
for TRUE and 0 for FALSE

1*(b2$status=='San')

However it is exact match so if in b2$status is

" San" or "san" or "SAN" or "San1"

it will give 0 for all of these.

Regards
Petr
> 
> 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://www.nabble.com/file/p21993098/allesd%2528uden%2Bf%25C3%25B8r%2529060209.txt
> allesd%28uden+f%C3%B8r%29060209.txt 
> 
> R-kode (just run from line 1-22) ;
> http://www.nabble.com/file/p21993098/PRRS%2B%2528med%2Ballle%2BSD%2529.r
> PRRS+%28med+allle+SD%29.r 
> -- 
> View this message in context: 
http://www.nabble.com/extracting-parts-of-words-
> or-extraxting-letter-to-use-in-ifelse-func.-tp21993098p21993098.html
> Sent from the R help mailing list archive at Nabble.com.
> 
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide 
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.