[R] From a vector with characters to binary information

[arun]

Hi,
 1*is.na(match(scm,c("keine"," ")))
# [1] 0 0 0 1 1 1 1 0 0 1 1 0 0 0 0 0 1 0 0 1
#or
 1*(!scm%in%c("keine"," "))
 #[1] 0 0 0 1 1 1 1 0 0 1 1 0 0 0 0 0 1 0 0 1
A.K.



----- Original Message -----
From: Hermann Norpois <hnorpois at gmail.com>
To: r-help at r-project.org
Cc: 
Sent: Friday, March 29, 2013 3:01 PM
Subject: [R] From a vector with characters to binary information

Hello,

I would like to transform a character vector into a "binary" vector
("keine" and " " become 0 and the rest 1).

> dput (scm)
c("keine", " ", "keine", "Erstgradverw.", "Mutter", "Erstgradverw.",
"Erstgradverw.", "keine", " ", "Vater", "Erstgradverw.", "keine",
"keine", "keine", "keine", " ", "Erstgradverw.", "keine", "keine",
"Erstgradverw.")

I tried:

scoref <- sapply (scm, function (x) ifelse (x == "keine"|x==" ", 0, 1))

or

scoref <- sapply (scm, function (x) ifelse (x == "keine"|x==" ", x <- 0, x
<- 1))

And this is the output:

> scoref
        keine                       keine Erstgradverw.        Mutter
            0             0             0             1             1
Erstgradverw. Erstgradverw.         keine                       Vater
            1             1             0             0             1
Erstgradverw.         keine         keine         keine         keine
            1             0             0             0             0
              Erstgradverw.         keine         keine Erstgradverw.
            0             1             0             0             1

How do I get rid off the text. Is there an alternative method?

Thanks Hermann

    [[alternative HTML version deleted]]

______________________________________________
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.