Added context test both. adapted tests.
changed binary function. binary class inhertis from »logical« by default now.

fixed '==' operator for objects of same size.
using class(ret) <- c("binary","logical) instead of as.binary. Using »as.binaryx sometimes attributes get lost.