Hi,May be:
fun1 <- function(dat){
indx <- apply(dat,1,function(x) {
any(x==sort(x))| !any(as.character(interaction(dat,sep="")) %in%
paste(sort(x),collapse=""))
})
dat[indx,]
}
test1 <- rbind(test,data.frame(a="F",u="E"))
fun1(test)
fun1(test1)
A.K.
On Friday, November 15
So rows are considered duplicated if they have the same two characters,
regardless of which column they're in?
If the B A row came first is it ok to keep that row, or would you want to
keep the A B row?
This appears to work, at least for this example.
foo <- t(apply(test,1, function(x) sort(fo
2 matches
Mail list logo
