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 <hnorp...@gmail.com>
To: r-help@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@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.
______________________________________________
R-help@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.
