a = matrix(FPSA,1, 54, FALSE);

x = c(1,2,5,7,-3,0,5,1,5,6);
y = c(2,2,0,-5,7,8,11,9,3,2);

x + y
x * y
x - y

x[(x%%2) == 0]
y[(y%%2) != 0]

x[(x>0)];g
y[(y>0)];h

mean(x)
sd(x)
sd(x)/length(x)

mean(y)
sd(y)
sd(y)/length(y)

sort(x, decreasing = TRUE)