Project R14 Vektor

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

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

##  [1]  1  3  5  7  9  2  4  6  8 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: 190"

v1[3] <- 22
print(v1)

## [1]  1  3 22  7  9

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

## [1] 10  8  6  4  2