Produce the TeX code of positivity of randomaized values.
pos(x)
x
a numeric number.
The function returns one of the symbols "<0", ">0", or "=0".
signF
x <- sample(c((-10):10),1) pos(x)