powered by
"Math"(x, ...)
fractional
"fractional"
(M <- fractional(solve(cbind(1, contr.helmert(5))))) (M0 <- abs(M)*sign(M)) ## fractional flag lost
Run the code above in your browser using DataLab