[R] creating discretized data

[Robin Hankin]

Hi

The "trick" is to define a function f() that does
what you want elementwise, then use lapply():

 > f <- function(i){c(rep(0,i-1),1)}
 > x <- c(2,1,3,5)
 > c(lapply(x,f),recursive=T)
[1] 0 1 1 0 0 1 0 0 0 0 1
 >



HTH

rksh


> Hi, Ia m working in discretized data. Here my data:
>
> x <- c(2,1,3, 5), and I want to make (0,1) data  based  on the  
> length of
> each component in x.
> So the new data should like: y = (0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1).  
> I spent
> too much time with
> "seq", "rep". Still didn't get it. Any help? Thanks
>
> Ilham
>
> 	[[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.

--
Robin Hankin
Uncertainty Analyst
National Oceanography Centre, Southampton
European Way, Southampton SO14 3ZH, UK
  tel  023-8059-7743