sapply(x,FUN=function(y) {c(rep(0,y-1),1)})
On 16 Nov 2007, at 10:36, G Ilhamto wrote:
> 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,
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
2 matches
Mail list logo
