fork download
  1. m1<-matrix(c(1:9),nrow=3)
  2. v1<-c(1,2,3)
  3. m1
  4. v1
  5. v2<-m1%*%v1
  6. v2
  7. plot(v1,v2,xlab="v1",ylab="v2",type="o")
  8. # your code goes here
Success #stdin #stdout 0.3s 40116KB
stdin
Standard input is empty
stdout
     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9
[1] 1 2 3
     [,1]
[1,]   30
[2,]   36
[3,]   42