• API
• FAQ
• Tools
• Archive
SHARE
TWEET # Untitled a guest Aug 19th, 2019 68 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. v<-c(5, 0, 1, -2, 3, 4, 0 2, 1)
2. v<-c(5, 0, 1, -2, 3, 4, 0, 2, 1)
3. m<-matrix(v, nrow = 3, ncol = 3)
4. v
5. m
6. det(m)
7. solve(m)
8. mi<-solve(m)
9. round(mi, 2)
10. help
11. mt<-t(m)
12. mt
13. m
14. m%*%mt
15. k<-1+(3.3 * log(80))
16. k
17. n<-(1000 * 0.5 * (1 - 0.5) * 1.96) / (1000 - 1) * 0.02^2 + 0.5 * (1 - 0.5) * 1.96
18. n
19. n<-(1000 * 0.5 * (1 - 0.5) * 1.96) / ((1000 - 1) * 0.02^2 + 0.5 * (1 - 0.5) * 1.96)
20. n
21. n<-(1000 * 0.5 * (1 - 0.5) * 1.96^2) / ((1000 - 1) * 0.02^2 + 0.5 * (1 - 0.5) * 1.96^2)
22. n
23. A<- matrix(,nrow = 4, ncol = 4)
24. A
25. A<- matrix(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,nrow = 4, ncol = 4)
26. A<- (1,1,1,1,1,1,1,1,1,1,1,1,1,)
27. A<- (1,1,1,1,1,1,1,1,1,1,1,1,1)
28. A<- (1 11 1 1 11 1 11 )
29. A<- c(1,1,1,1,1,1,1,1,1,1,1,1,1)
30. A
31. A<- c(1, 1, 1, 1, 1, 1, -1, 0, 2, 0, -1, 1, 0, 1, -2, 0)
32. A
33. M9<- matrix(A, nrow = 4, ncol = 4)
34. M9
35. M9<- matrix(A, byrow = 4, ncol = 4)
36. M9
37. V<- c(x, y , z, w)
38. M9i<- solve(M9)
39. M9i
40. shit<- c(7/2, 1, 3/2, -1)
41. b<- matrix(shit, nrow = 4, ncol = 1)
42. b
43. x<- M9i %*% b
44. x