Домашнее задание

Задание 1

Вычислите в R:

\(67 ^ 3 - 112 ^ 2\);
```
67**3-112**2
```
```
## [1] 288219
```
\(\log(125)\);
```
log(125)
```
```
## [1] 4.828314
```
\(\log_3(81)\).
```
log(81, 3)
```
```
## [1] 4
```

Задание 2

В векторе flights_d сохранено число вылетов из аэропорта А, а в векторе flights_a — число прилетов в этот аэропорт за неделю.

flights_d <- c(140, 150, 100, 90, 230, 240, 165)
flights_a <- c(65, 145, 80, 87, 220, 268, 216)

2.1. Сколько вылетов из аэропорта А было зафиксировано в среду?

flights_d[3]

## [1] 100

2.2. На сколько число вылетов во вторник больше числа прилетов во вторник?

flights_d[2]-flights_a[2]

## [1] 5

2.3. Во сколько раз число вылетов в воскресенье больше числа прилетов в воскресенье?

flights_d[7]/flights_a[7]

## [1] 0.7638889

2.4. Сколько всего вылетов из аэропорта А было зафиксировано за неделю?

sum(flights_d)

## [1] 1115

Задание 3

В векторе cats сохранены значения весов кошек в килограммах:

cats <- c(4.765, 3.230, 1.256, 1.780, 2.583, 2.781, 3.945, 2.345)

3.1. Используя R, выведите ответы на вопросы.

Сколько всего кошек было взвешено?
```
length(cats)
```
```
## [1] 8
```

Какой вес был у самой тяжелой кошки? А у легкой?

cat('Вес самой тяжелой кошки - ', max(cats))

## Вес самой тяжелой кошки -  4.765

cat('Вес самой легкой кошки - ',min(cats))

## Вес самой легкой кошки -  1.256

3.2. Создайте вектор cats.round со значениями весов кошек в килограммах, округленных в меньшую сторону.

cats.round <- floor(cats)

3.3. Создайте вектор cats_g со значением весов кошек в граммах.

cats_g <- cats*1000

Задание 4

В векторе nums сохранены строки, в которых записаны дробные числа с неправильным десятичным разделителем. Создайте числовой вектор correct с корректными значениями — правильными дробными числами.

nums <- c("2,6", "2,71", "3,5", "4,8", "8,9", "9,21")
correct <- as.numeric(gsub(",", ".", nums))

Задание 5

Известно, что в таблице хранятся показатели по 3 странам за 5 лет. Таблица выглядит примерно так:

Создайте вектор country с названиями стран, то есть вектор, который послужил бы первым столбцом таблицы выше.
```
country <- c('France', 'France', 'France', 'France', 'France', 'Italy', 'Italy', 'Italy', 'Italy', 'Italy', 'Spain', 'Spain', 'Spain', 'Spain', 'Spain')
```
Создайте вектор year с годами, который мог бы послужить вторым столбцом таблицы выше.
```
year <- c(2000, 2001, 2002, 2003, 2004, 2000, 2001, 2002, 2003, 2004, 2000, 2001, 2002, 2003, 2004)
```
Объедините полученные векторы в датафрейм dat таким образом, чтобы в итоге получилась таблица, представленная выше.
```
dat <- cbind.data.frame(country, year)
dat
```

Задание 6

Даны векторы v и w:

v <- c(2, 8, 9, 11, 13, 0)
w <- c(0, 3, 7, 0, 5, 1)

6.1. Используя векторы v и w, создайте:

Матрицу A, где векторы v и w являются строками матрицы.

A <- rbind(v, w)
A

##   [,1] [,2] [,3] [,4] [,5] [,6]
## v    2    8    9   11   13    0
## w    0    3    7    0    5    1

Матрицу B, где векторы v и w являются столбцами матрицы.

B <- cbind(v, w)
B

##       v w
## [1,]  2 0
## [2,]  8 3
## [3,]  9 7
## [4,] 11 0
## [5,] 13 5
## [6,]  0 1

6.2. Выведите на экран элемент матрицы B в 2 столбце и 3 строке.

B[3,2]

## w 
## 7

6.3. Замените элемент в 4 строке второго столбца B на 0.

B[4,2] <- 0

6.4. Используя R, ответьте на следующий вопрос. В какой матрице сумма элементов второй строки больше?

cat('Сумма элементов второй строки матрицы А = ', sum(A[2,]))

## Сумма элементов второй строки матрицы А =  16

cat('Сумма элементов второй строки матрицы B = ', sum(B[2,]))

## Сумма элементов второй строки матрицы B =  11