I'm generating a random numbers x,y between -10 and 10
then I create an if statement to classify each pair(x,y) in 4 quadrant in the following if statement
but the column quad give me all 4
x <- runif(n=400, min = -10, max = +10)
y <- runif(n=400, min = -10, max = +10)...