xxxxxxxxxx
print(r.eval("""
a<-c(-4,-3,-5,5,4,5,-7,-7,-6)
A<-matrix(a,3,3,byrow=T)
print(A); cat('\n')
print(eigen(A)$values); cat('\n')
round(eigen(A)$vectors)"""))
No comments:
Post a Comment