cvičenie_2

Chunks

1*10

[1] 10

Mále cvičenie Numerické skaláre

\[\frac{(12^5/9)}{(30+40^3)}\]

(12^5/9)/(30+40^3)

[1] 0.4317976

Mále cvičenie Vektor

V1 <- rnorm(30,15,10)

V1 <- rnorm(30,15,10)
sum(V1[V1%%5==0])

[1] 0

V1

 [1] 14.271183  4.330607 18.201524 12.459111 28.386146 10.191303 22.419116
 [8] 12.447274 20.510168 17.325457 20.407993 19.824170 29.541517 12.591631
[15] 18.708094 30.429431 15.593970 42.879751 15.738354 13.071477 23.056846
[22] 23.467871 14.319571 19.828738 10.229516  8.083423 12.283431 17.303702
[29] 19.527666  6.874952

Mále cvičenie Vlastné matice

M1 <- matrix(30:65, nrow = 6, byrow = TRUE)
M1

     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]   30   31   32   33   34   35
[2,]   36   37   38   39   40   41
[3,]   42   43   44   45   46   47
[4,]   48   49   50   51   52   53
[5,]   54   55   56   57   58   59
[6,]   60   61   62   63   64   65

colSums(M1)

[1] 270 276 282 288 294 300

t(M1) %*% M1

      [,1]  [,2]  [,3]  [,4]  [,5]  [,6]
[1,] 12780 13050 13320 13590 13860 14130
[2,] 13050 13326 13602 13878 14154 14430
[3,] 13320 13602 13884 14166 14448 14730
[4,] 13590 13878 14166 14454 14742 15030
[5,] 13860 14154 14448 14742 15036 15330
[6,] 14130 14430 14730 15030 15330 15630