x <- matrix(1:4,2,2)
## standard solve
solve(x)
q <- as.bigq(x)
## solve with rational
solve(q)
z <- as.bigz(x)
modulus(z) <- 7
## solve in Z/7Z
solve(z)
b <- c(1,3)
solve(q,b)
solve(z,b)
Run the code above in your browser using DataLab