x <- matrix(c(1,2,3,4,5,6,7,3,4,10),nrow=5)
x
apply(x,1,min)
apply(x,1,max)
u1 <- apply(x,1,min)
u2 <- apply(x,1,max)
x[u1 != u2,]
q()
