Анализ данных и знаний / 1 лаба / 1

#1

n=21

a=c((5*n):(3*n))

[1] 105 104 103 102 101 100 99 98 97 96 95 94 93 92 91 90 89

[18] 88 87 86 85 84 83 82 81 80 79 78 77 76 75 74 73 72

[35] 71 70 69 68 67 66 65 64 63

b=c(n/3, n/2, n, 2*n)

[1] 7.0 10.5 21.0 42.0

f=sort(b)

[1] 7.0 10.5 21.0 42.0

c("a", "n", "d", "r", "e", "y")

[1] "S" "p" "a" "s" "s" "k" "y"

h=c(a,b)

[1] 105.0 104.0 103.0 102.0 101.0 100.0 99.0 98.0 97.0 96.0 95.0

[12] 94.0 93.0 92.0 91.0 90.0 89.0 88.0 87.0 86.0 85.0 84.0

[23] 83.0 82.0 81.0 80.0 79.0 78.0 77.0 76.0 75.0 74.0 73.0

[34] 72.0 71.0 70.0 69.0 68.0 67.0 66.0 65.0 64.0 63.0 7.0

[45] 10.5 21.0 42.0

#2

n=21

y1 = seq(from = n-2, to = n*2, len=35)

[1] 19.00000 19.67647 20.35294 21.02941 21.70588 22.38235 23.05882

[8] 23.73529 24.41176 25.08824 25.76471 26.44118 27.11765 27.79412

[15] 28.47059 29.14706 29.82353 30.50000 31.17647 31.85294 32.52941

[22] 33.20588 33.88235 34.55882 35.23529 35.91176 36.58824 37.26471

[29] 37.94118 38.61765 39.29412 39.97059 40.64706 41.32353 42.00000

y2 = seq(2*n,6*n, by=0.2)

[1] 42.0 42.2 42.4 42.6 42.8 43.0 43.2 43.4 43.6 43.8 44.0

[12] 44.2 44.4 44.6 44.8 45.0 45.2 45.4 45.6 45.8 46.0 46.2

[23] 46.4 46.6 46.8 47.0 47.2 47.4 47.6 47.8 48.0 48.2 48.4

[34] 48.6 48.8 49.0 49.2 49.4 49.6 49.8 50.0 50.2 50.4 50.6

[45] 50.8 51.0 51.2 51.4 51.6 51.8 52.0 52.2 52.4 52.6 52.8

[56] 53.0 53.2 53.4 53.6 53.8 54.0 54.2 54.4 54.6 54.8 55.0

[67] 55.2 55.4 55.6 55.8 56.0 56.2 56.4 56.6 56.8 57.0 57.2

[78] 57.4 57.6 57.8 58.0 58.2 58.4 58.6 58.8 59.0 59.2 59.4

[89] 59.6 59.8 60.0 60.2 60.4 60.6 60.8 61.0 61.2 61.4 61.6

[100] 61.8 62.0 62.2 62.4 62.6 62.8 63.0 63.2 63.4 63.6 63.8

[111] 64.0 64.2 64.4 64.6 64.8 65.0 65.2 65.4 65.6 65.8 66.0

[122] 66.2 66.4 66.6 66.8 67.0 67.2 67.4 67.6 67.8 68.0 68.2

[133] 68.4 68.6 68.8 69.0 69.2 69.4 69.6 69.8 70.0 70.2 70.4

[144] 70.6 70.8 71.0 71.2 71.4 71.6 71.8 72.0 72.2 72.4 72.6

[155] 72.8 73.0 73.2 73.4 73.6 73.8 74.0 74.2 74.4 74.6 74.8

[166] 75.0 75.2 75.4 75.6 75.8 76.0 76.2 76.4 76.6 76.8 77.0

[177] 77.2 77.4 77.6 77.8 78.0 78.2 78.4 78.6 78.8 79.0 79.2

[188] 79.4 79.6 79.8 80.0 80.2 80.4 80.6 80.8 81.0 81.2 81.4

[199] 81.6 81.8 82.0 82.2 82.4 82.6 82.8 83.0 83.2 83.4 83.6

[210] 83.8 84.0 84.2 84.4 84.6 84.8 85.0 85.2 85.4 85.6 85.8

[221] 86.0 86.2 86.4 86.6 86.8 87.0 87.2 87.4 87.6 87.8 88.0

[232] 88.2 88.4 88.6 88.8 89.0 89.2 89.4 89.6 89.8 90.0 90.2

[243] 90.4 90.6 90.8 91.0 91.2 91.4 91.6 91.8 92.0 92.2 92.4

[254] 92.6 92.8 93.0 93.2 93.4 93.6 93.8 94.0 94.2 94.4 94.6

[265] 94.8 95.0 95.2 95.4 95.6 95.8 96.0 96.2 96.4 96.6 96.8

[276] 97.0 97.2 97.4 97.6 97.8 98.0 98.2 98.4 98.6 98.8 99.0

[287] 99.2 99.4 99.6 99.8 100.0 100.2 100.4 100.6 100.8 101.0 101.2

[298] 101.4 101.6 101.8 102.0 102.2 102.4 102.6 102.8 103.0 103.2 103.4

[309] 103.6 103.8 104.0 104.2 104.4 104.6 104.8 105.0 105.2 105.4 105.6

[320] 105.8 106.0 106.2 106.4 106.6 106.8 107.0 107.2 107.4 107.6 107.8

[331] 108.0 108.2 108.4 108.6 108.8 109.0 109.2 109.4 109.6 109.8 110.0

[342] 110.2 110.4 110.6 110.8 111.0 111.2 111.4 111.6 111.8 112.0 112.2

[353] 112.4 112.6 112.8 113.0 113.2 113.4 113.6 113.8 114.0 114.2 114.4

[364] 114.6 114.8 115.0 115.2 115.4 115.6 115.8 116.0 116.2 116.4 116.6

[375] 116.8 117.0 117.2 117.4 117.6 117.8 118.0 118.2 118.4 118.6 118.8

[386] 119.0 119.2 119.4 119.6 119.8 120.0 120.2 120.4 120.6 120.8 121.0

[397] 121.2 121.4 121.6 121.8 122.0 122.2 122.4 122.6 122.8 123.0 123.2

[408] 123.4 123.6 123.8 124.0 124.2 124.4 124.6 124.8 125.0 125.2 125.4

[419] 125.6 125.8 126.0

#3

m=matrix(data = y1, nrow = 6, ncol = 3)

[,1] [,2] [,3]

[1,] 19.00000 23.05882 27.11765

[2,] 19.67647 23.73529 27.79412

[3,] 20.35294 24.41176 28.47059

[4,] 21.02941 25.08824 29.14706

[5,] 21.70588 25.76471 29.82353

[6,] 22.38235 26.44118 30.50000

y3=seq(from = 1, to = n+6, len = 7)

[1] 1.000000 5.333333 9.666667 14.000000 18.333333 22.666667

[7] 27.000000

y4=seq(from = n-4, to = 1, len = 7)

[1] 17.000000 14.333333 11.666667 9.000000 6.333333 3.666667

[7] 1.000000

m1=matrix(data = c(y3, y4), nrow = n, ncol = 4)

[,1] [,2] [,3] [,4]

[1,] 1.000000 17.000000 1.000000 17.000000

[2,] 5.333333 14.333333 5.333333 14.333333

[3,] 9.666667 11.666667 9.666667 11.666667

[4,] 14.000000 9.000000 14.000000 9.000000

[5,] 18.333333 6.333333 18.333333 6.333333

[6,] 22.666667 3.666667 22.666667 3.666667

[7,] 27.000000 1.000000 27.000000 1.000000

[8,] 17.000000 1.000000 17.000000 1.000000

[9,] 14.333333 5.333333 14.333333 5.333333

[10,] 11.666667 9.666667 11.666667 9.666667

[11,] 9.000000 14.000000 9.000000 14.000000

[12,] 6.333333 18.333333 6.333333 18.333333

[13,] 3.666667 22.666667 3.666667 22.666667

[14,] 1.000000 27.000000 1.000000 27.000000

[15,] 1.000000 17.000000 1.000000 17.000000

[16,] 5.333333 14.333333 5.333333 14.333333

[17,] 9.666667 11.666667 9.666667 11.666667

[18,] 14.000000 9.000000 14.000000 9.000000

[19,] 18.333333 6.333333 18.333333 6.333333

[20,] 22.666667 3.666667 22.666667 3.666667

[21,] 27.000000 1.000000 27.000000 1.000000

#4

n=21

m1[1,2] + m1[3,3]

[1] 26.66667

m1[,2] + m1[,3]

[1] 18.00000 19.66667 21.33333 23.00000 24.66667 26.33333 28.00000

[8] 18.00000 19.66667 21.33333 23.00000 24.66667 26.33333 28.00000

[15] 18.00000 19.66667 21.33333 23.00000 24.66667 26.33333 28.00000

#5

n=21

m2=matrix((n+1):(n+24), nrow = 4, ncol = 6)

[,1] [,2] [,3] [,4] [,5] [,6]

[1,] 22 26 30 34 38 42

[2,] 23 27 31 35 39 43

[3,] 24 28 32 36 40 44

[4,] 25 29 33 37 41 45

m2[2,]

[1] 23 27 31 35 39 43

m2[m2>n]=n/2

[,1] [,2] [,3] [,4] [,5] [,6]

[1,] 10.5 10.5 10.5 10.5 10.5 10.5

[2,] 10.5 10.5 10.5 10.5 10.5 10.5

[3,] 10.5 10.5 10.5 10.5 10.5 10.5

[4,] 10.5 10.5 10.5 10.5 10.5 10.5

#6

n=21

mas1 = array(c(1:n*3, 2*n+1:5*n, n-1:4*n-2), c(n,3,3))

, , 1

[,1] [,2] [,3]

[1,] 63 42 21

[2,] 62 41 20

[3,] 61 40 19

[4,] 60 39 18

[5,] 59 38 17

[6,] 58 37 16

[7,] 57 36 15

[8,] 56 35 14

[9,] 55 34 13

[10,] 54 33 12

[11,] 53 32 11

[12,] 52 31 10

[13,] 51 30 9

[14,] 50 29 8

[15,] 49 28 7

[16,] 48 27 6

[17,] 47 26 5

[18,] 46 25 4

[19,] 45 24 3

[20,] 44 23 2

[21,] 43 22 1

, , 2

[,1] [,2] [,3]

[1,] 43 64 85

[2,] 44 65 86

[3,] 45 66 87

[4,] 46 67 88

[5,] 47 68 89

[6,] 48 69 90

[7,] 49 70 91

[8,] 50 71 92

[9,] 51 72 93

[10,] 52 73 94

[11,] 53 74 95

[12,] 54 75 96

[13,] 55 76 97

[14,] 56 77 98

[15,] 57 78 99

[16,] 58 79 100

[17,] 59 80 101

[18,] 60 81 102

[19,] 61 82 103

[20,] 62 83 104

[21,] 63 84 105

, , 3

[,1] [,2] [,3]

[1,] 20 41 62

[2,] 21 42 63

[3,] 22 43 64

[4,] 23 44 65

[5,] 24 45 66

[6,] 25 46 67

[7,] 26 47 68

[8,] 27 48 69

[9,] 28 49 70

[10,] 29 50 71

[11,] 30 51 72

[12,] 31 52 73

[13,] 32 53 74

[14,] 33 54 75

[15,] 34 55 76

[16,] 35 56 77

[17,] 36 57 78

[18,] 37 58 79

[19,] 38 59 80

[20,] 39 60 81

[21,] 40 61 82

#7

n=21

m4=t(m2)

[,1] [,2] [,3] [,4]

[1,] 10.5 10.5 10.5 10.5

[2,] 10.5 10.5 10.5 10.5

[3,] 10.5 10.5 10.5 10.5

[4,] 10.5 10.5 10.5 10.5

[5,] 10.5 10.5 10.5 10.5

[6,] 10.5 10.5 10.5 10.5

write.table(m4, file="21v.csv", sep=" ")

f=read.table("21v.csv", sep="",dec="-", header=TRUE)

V1 V2 V3 V4

1 10.5 10.5 10.5 10.5

2 10.5 10.5 10.5 10.5

3 10.5 10.5 10.5 10.5

4 10.5 10.5 10.5 10.5

5 10.5 10.5 10.5 10.5

6 10.5 10.5 10.5 10.5

summa=sum(m4)

[1] 252

#8

n=21

v1=c("Соки фруктові та овочеві","Суміші соків фруктових та овочевих","Олія соняшникова нерафінована та її фракції, крім фракцій зі зміненим хімічним складом","Маргарин і жири харчові подібні","Молоко рідке оброблене")

[1] "Соки фруктові та овочеві"

[2] "Суміші соків фруктових та овочевих"

[3] "Олія соняшникова нерафінована та її фракції, крім фракцій зі зміненим хімічним складом"

[4] "Маргарин і жири харчові подібні"

[5] "Молоко рідке оброблене"

v2=c("тис.т")

[1] "тис.т"

v3=c(463, 286, 3403, 283, 961)

[1] 463 286 3403 283 961

spisok=list(Text=v1, Text=v2, Number=v3)

$Text

[1] "Соки фруктові та овочеві"

[2] "Суміші соків фруктових та овочевих"

[3] "Олія соняшникова нерафінована та її фракції, крім фракцій зі зміненим хімічним складом"

[4] "Маргарин і жири харчові подібні"

[5] "Молоко рідке оброблене"

$Text

[1] "тис.т"

$Number

[1] 463 286 3403 283 961

str(spisok)

List of 3

$ Text : chr [1:5] "Соки фруктові та овочеві" "Суміші соків фруктових та овочевих" "Олія соняшникова нерафінована та її фракції, крім фракцій зі зміненим хімічним складом" "Маргарин і жири харчові подібні" ...

$ Text : chr "тис.т"

$ Number: num [1:5] 463 286 3403 283 961

#9

n=21

b1=rnorm(n+50, mean=n*2, sd=0.5*n)

[1] 58.496202 72.225281 58.586669 48.798150 44.845177 37.095045

[7] 48.442807 55.397522 34.552416 30.189315 49.961892 64.841514

[13] 37.023700 49.018797 34.636491 38.975352 43.770562 37.484493

[19] 30.741058 29.061427 37.042272 37.415032 39.039069 32.794904

[25] 54.677953 23.019912 32.250656 47.169569 50.071651 56.057463

[31] 32.533072 38.932354 24.702593 38.452681 47.917123 59.883221

[37] 52.156905 37.838634 42.939432 45.611792 48.175245 27.372403

[43] 24.899133 60.340425 51.668344 50.096587 41.900203 39.064963

[49] 29.014248 8.260130 49.495242 52.460488 43.320560 44.884846

[55] 45.132631 23.347326 38.107700 39.220879 54.457105 39.763571

[61] 17.917713 41.073433 39.406523 37.653444 45.799051 54.468938

[67] 60.251807 9.504202 44.435078 43.590480 37.008388

b2=runif(75-n, n+5, n+10)

[1] 29.20087 26.83249 26.79810 28.99289 30.26300 29.73480 27.62813

[8] 27.61184 30.00195 26.47307 28.72365 29.45923 30.51739 26.36448

[15] 28.36973 27.16635 30.85967 27.58195 27.65098 28.75454 26.47202

[22] 30.81451 28.71278 27.00390 28.36682 29.42873 30.05197 29.78963

[29] 28.24882 28.65950 29.45066 27.15871 27.37592 26.02535 27.66340

[36] 29.43370 30.23800 28.72127 28.72800 27.01940 27.21312 26.93374

[43] 30.46887 28.46763 28.11512 27.07159 29.72657 30.34340 29.68510

[50] 27.41484 28.22062 27.98694 28.33929 26.41064

#10

n=21

b3=vector()

for (i in 1:54)

{

if(b1[i]<b2[i])

{

b3[i]=1

}

else

b3[i]=0

}

[1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0

[35] 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 1 0 0 0 0

#11

n=21

var21=function(n)

{

A=c(n,-n)

B=c(2*n,n/2)

C=c(1+n,n-1)

D=c((B+C)/2)

c(sqrt(sum((D-A)^2)))

}

rezult=var21(1)

rezult

[1] 1.600781