powered by
NumericVectorEquality(x, y)
x <- c(1:10) y <- rev(c(10:1)) NumericVectorEquality(x,y)
Run the code above in your browser using DataLab