daily pastebin goal
4%
SHARE
TWEET

Untitled

a guest Mar 13th, 2018 44 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. [,1] [,2] [,3]
  2. 1  0.1  0.2  0.3
  3. 2  0.5  1.0  1.5
  4. 3  1.0  1.5  2.0
  5. 4  1.5  2.0  2.5
  6.    
  7. mat=matrix(c(0.1,0.5, 1, 1.5, 0.2, 1, 1.5 ,2,0.3, 1.5, 2, 2.5), nrow=4, ncol=3)
  8. rownames(mat) <- seq_len(nrow(mat))
  9. norm1=as.vector(rep(0,3))
  10. for (i in 1:3) {
  11.   norm1[i]=norm(as.matrix(mat[,i]))  
  12. }
  13. y1=c(0.1, 0.2, 0.3)
  14. y2=c(0.5,1.0,1.5)
  15. y3=c(1.0,1.5,2)
  16. y4=c(1.5,2,2.5)
  17. plot(norm1,y1, type = "l", xlim=c(3,7), ylim=c(0,3))
  18. lines(norm1,y2)
  19. lines(norm1,y3)
  20. lines(norm1,y4)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top