xxxxxxxxxx
print(r.eval("""
A<-matrix(sample.int(100,size=3*3,replace=TRUE),
nrow=3,ncol=3)
print(A); print(t(A)); print(solve(A))
cat("\n"); print(det(A)); qr(A)"""))
No comments:
Post a Comment