Re: [R] please check this

2013-06-10 Thread arun
Sorry, I forgot to paste some lines and change the names: res10Percent<- fun1(final3New,0.1,200) res10PercentSub1<-subset(res10Percent[duplicated(res10Percent)|duplicated(res10Percent,fromLast=TRUE),],dummy==1) indx1<-as.numeric(row.names(res10PercentSub1)) res10PercentSub2<-res10PercentSub1[or

Re: [R] please check this

2013-06-10 Thread arun
Hi, Try this: res10Percent<- fun1(final3New,0.1,200) res10PercentSub1<-subset(res10Percent[duplicated(res10Percent)|duplicated(res10Percent,fromLast=TRUE),],dummy==1) indx1<-as.numeric(row.names(res10PercentSub1)) res10PercentSub2<-res10PercentSub1[order(res10PercentSub1$dimension),] indx11<-as.n

Re: [R] please check this

2013-06-10 Thread arun
Hi, Try this: which(duplicated(res10Percent)) # [1] 117 125 157 189 213 235 267 275 278 293 301 327 331 335 339 367 369 371 379 #[20] 413 415 417 441 459 461 477 479 505 res10PercentSub1<-subset(res10Percent[which(duplicated(res10Percent)),],dummy==1)   #most of the duplicated are dummy==1 res10Pe