Does this do what you want?
as.numeric(with(ds_example,paste(1,year2013,year2014,year2015,sep='')))
On Thu, Jun 16, 2016 at 8:57 AM, <g.maub...@weinwolf.de> wrote:
> Hi All,
>
> I need to build a binary vector made of a set of dichotomous variables.
>
> What I have so far is:
>
> -- cut --
>
> ds_example <-
> structure(
> list(
> year2013 = c(0, 0, 0, 1, 1, 1, 1, 0),
> year2014 = c(0,
> 0, 1, 1, 0, 0, 1, 1),
> year2015 = c(0, 1, 1, 1, 0, 1, 0, 0)
> ),
> .Names = c("year2013",
> "year2014", "year2015"),
> row.names = c(NA, 8L),
> class = "data.frame"
> )
>
> attach(ds_example)
> base <- 1000
> binary_vector <- base + year2013 * 100 + year2014 * 10 + year2015
> detach(ds_example)
>
> binary_vector
>
> ds_example <- cbind(ds_example, binary_vector)
>
> varlist <- c("year2013", "year2014", "year2015")
>
> base <- 10^length(varlist)
>
> binary_vector <- NULL
>
> for (i in 1:3) {
> binary_vector <-
> base +
> ds_example [[varlist[i]]] * base / (10 ^ i)
> }
>
> ds_example <- cbind(ds_example, binary_vector)
>
> message("Wrong result!")
> ds_example
>
> -- cut --
>
> How do I get vectors like 1000 1001 1011 1111 1100 1101 1110 1010 for
> each case?
>
> Is there a better approach than mine?
>
> Kind regards
>
> Georg
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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 -- To UNSUBSCRIBE and more, see
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.
