SHARE
TWEET

Untitled

a guest Oct 23rd, 2019 63 in 88 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #1
  2. setwd("Z:\\R Studio\\Kontrolinis")
  3. getwd()
  4. #1uzd
  5. a=seq(-10,20,by=0.5);a
  6. vekt1=a[a>0&a<10.5]
  7. kiek=sum(a<1)
  8. kiek1=min(a)
  9. kiek2=mean(a)
  10. #2uzd
  11. matrica=c(13,4,5,-6,7,-12,5,3,-7)
  12. A=matrix(matrica, nrow=3, ncol=3, byrow=TRUE); A
  13. DA=det(A); DA
  14. LA=A^-1; LA
  15. #3uzd
  16. matricaa=c(2,3,1,-5,7,6,0,8)
  17. B=matrix(matricaa, nrow=4, ncol=2, byrow=TRUE); B
  18. matricaaa=c(-5,7,8,6,-3,-1,4,2)
  19. C=matrix(matricaaa, nrow=4, ncol=2, byrow=TRUE); C
  20. ats=(2*B)-(3*C); ats
  21. ats1=B%*%t(C); ats1
  22. #4uzd
  23. head(ChickWeight)
  24.  
  25. #5uzd
  26. pdf("Kreives.pdf")
  27. y=function(x)9-x^2
  28. curve(y,from=-3, to=3)
  29. abline(a=4,b=0,col="red",lty=8)
  30. curve(y,from=-3, to=3,ylim=c(-0,12))
  31. points(0,10, pch=18,cex=3)
  32. dev.off()
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