Lesson 6 : HOMEWORK

Beginner level

Task1

x <- c(2,5,7,10,12)
y <- x*3
print(y)

## [1]  6 15 21 30 36

Task2

values <- c(3,6,8,2,5)
squared_values <- sqrt(values)
print(squared_values)

## [1] 1.732051 2.449490 2.828427 1.414214 2.236068

Task3

data <- c(10,50,100,150,200)
log_data <- log(data)
print(log_data)

## [1] 2.302585 3.912023 4.605170 5.010635 5.298317

Task4

angles <- c(0,pi/4,pi/2,pi,3*pi/2)
cos_values <- cos(angles)
print(cos_values)

## [1]  1.000000e+00  7.071068e-01  6.123032e-17 -1.000000e+00 -1.836910e-16

INTERMEDIATE LEVEL

Task1

x <- c(0.56,0.82,0.23,0.77,0.24)
z <- sin(x)^x+exp(x)
print(z)

## [1] 2.452351 3.044041 1.970330 2.916380 1.979600

Task2

x <- c(20,25,30,35,40)
temperatures_farenheit <- x*9/5+32
print(temperatures_farenheit)

## [1]  68  77  86  95 104

Task3

a <- c(10,20,30,40)
b <- c(15,25,35,45)
diff <- abs(a-b)
print(diff)

## [1] 5 5 5 5

Task4

numbers <- c(5,8,3,10,7)
mean_vec <- mean(numbers)
adjusted_numbers <- numbers-mean_vec
print(adjusted_numbers)

## [1] -1.6  1.4 -3.6  3.4  0.4

ADVANCED LEVEL

Task1

expenses <- c(1200,800,950,1300,1050,980)
total_vec <- sum(expenses)
total_vec

## [1] 6280

min(expenses)

## [1] 800

max(expenses)

## [1] 1300

Task2 - 0.5 dan kichik bo’lsa kvadratga ko’tar, 1 dan katta bo’lsa ln lab yubor va sum ni hisoblash

data <- c(0.3,0.9,0.7,1.2,0.6)
transformed_data <- ifelse(data < 0.5, data^2, ifelse(data > 1, log(data),data)) 
sum_vec <- sum(transformed_data)
print(sum_vec)

## [1] 2.472322