VEKTOR (3)

v1 <- c(1, 2, 3, 4, 5)
v2 <- c(6, 7, 8, 9, 10)

combined <- c(v1, v2)
print(combined)

##  [1]  1  2  3  4  5  6  7  8  9 10

length_v1 <- length(v1)
length_v2 <- length(v2)
print(paste("Jumlah elemen v1:", length_v1))

## [1] "Jumlah elemen v1: 5"

print(paste("Jumlah elemen v2:", length_v2))

## [1] "Jumlah elemen v2: 5"

total_sum <- sum(combined)
print(paste("Total penjumlahan vektor:", total_sum))

## [1] "Total penjumlahan vektor: 55"

mean_value <- mean(combined)
print(paste("Rata-rata vektor:", mean_value))

## [1] "Rata-rata vektor: 5.5"

dot_product <- sum(v1 * v2)
print(paste("Hasil perkalian dot vektor:", dot_product))

## [1] "Hasil perkalian dot vektor: 130"

v1[3] <- 99
print(v1)

## [1]  1  2 99  4  5

sorted_v2 <- sort(v2, decreasing = TRUE)
print(sorted_v2)

## [1] 10  9  8  7  6