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
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
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
3 matches
Mail list logo