Re: [R] conditional Dataframe filling

2013-03-27 Thread arun
E  TRUE  TRUE FALSE FALSE TRUE  TRUE  TRUE FALSE #z  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE TRUE  TRUE  TRUE FALSE #u  TRUE  TRUE FALSE FALSE    NA    NA  TRUE FALSE    NA TRUE FALSE FALSE  TRUE   A.K. - Original Message - From: Camilo Mora To: arun Cc: R help Sent: W

Re: [R] conditional Dataframe filling

2013-03-27 Thread Camilo Mora
msum(c(0,abs(diff(x),cumsum dat2New[rowSums(is.na(dat2New))!=0 & rowSums(is.na(dat2New))!=ncol(dat2New),]<-NA  dat2New #   a  b  c  d  e  f  g  h  i  j  k  l  m #w  0  0  0  0  0  1  2  3  4  0  0  0  0 #x NA NA NA NA NA NA NA NA NA NA NA NA NA #y  1  2  3  4  5  0  0  1  2  0  0 

Re: [R] conditional Dataframe filling

2013-03-27 Thread arun
umsum dat2New[rowSums(is.na(dat2New))!=0 & rowSums(is.na(dat2New))!=ncol(dat2New),]<-NA  dat2New #   a  b  c  d  e  f  g  h  i  j  k  l  m #w  0  0  0  0  0  1  2  3  4  0  0  0  0 #x NA NA NA NA NA NA NA NA NA NA NA NA NA #y  1  2  3  4  5  0  0  1  2  0  0  0  1 #z  0  0  0  0  1  0  0  0  1  0  0

Re: [R] conditional Dataframe filling

2013-03-27 Thread Camilo Mora
ttp://www.soc.hawaii.edu/mora/ Quoting arun : HI, Just a correction: : dat2[]<-t(apply(!dat1,1,function(x) unlist(lapply(split(x,cumsum(c(0,abs(diff(x),cumsum  #should also work A.K. - Original Message - From: arun To: Camilo Mora Cc: R help Sent: Wednesday, March

Re: [R] conditional Dataframe filling

2013-03-27 Thread arun
RUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE TRUE TRUE TRUE FALSE A.K. - Original Message - From: Camilo Mora To: arun Cc: R help Sent: Wednesday, March 27, 2013 3:27 PM Subject: Re: [R] conditional Dataframe filling Dear Arun, Thank you very  much for your help with this.I did not kn

Re: [R] conditional Dataframe filling

2013-03-27 Thread Camilo Mora
(x),cumsum))))  #should also work A.K. - Original Message - From: arun To: Camilo Mora Cc: R help Sent: Wednesday, March 27, 2013 9:09 AM Subject: Re: [R] conditional Dataframe filling Hi, You could try: dat1<- read.table(text=" a    b    c    d TRUE  TRUE  TRUE  TRUE

Re: [R] conditional Dataframe filling

2013-03-27 Thread arun
HI, Just a correction: : dat2[]<-t(apply(!dat1,1,function(x) unlist(lapply(split(x,cumsum(c(0,abs(diff(x),cumsum  #should also work A.K. - Original Message - From: arun To: Camilo Mora Cc: R help Sent: Wednesday, March 27, 2013 9:09 AM Subject: Re: [R] conditio

Re: [R] conditional Dataframe filling

2013-03-27 Thread arun
Hi, You could try: dat1<- read.table(text=" a    b    c    d TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE TRUE FALSE  TRUE  FALSE  FALSE ",sep="",header=TRUE) dat2<-dat1  dat2[]<-t(apply(1*!dat1,1,function(x) unlist(lapply(split(x,cumsum(c(0,abs(diff(x),cumsum  dat2 #  a b c d #1 0 0 0 0 #2

Re: [R] conditional Dataframe filling

2013-03-27 Thread Blaser Nello
Here's a possible solution. dd <- structure(list(a = c(TRUE, FALSE, FALSE), b = c(TRUE, FALSE, TRUE), c = c(TRUE, FALSE, FALSE), d = c(TRUE, TRUE, FALSE)), .Names = c("a", "b", "c", "d"), row.names =