# Cargar la librería combinat para generar las combinaciones
library(combinat)

# Función para calcular productos de combinaciones de n elementos tomados k a la vez
calc_product_of_combinations <- function(elements, k) {
  n <- length(elements)
  combinations <- combinat::combn(elements, k)
  product_results <- apply(combinations, 2, prod)
  return(product_results)

}

# Introduce tus 5 números
input_numbers <- c(0.9, 0.8, 0.7, 0.75, 0.6)
nt <- length(input_numbers)
va<-input_numbers
zt<-prod(va)





# Define la cantidad de números en cada combinación (en este caso, 2, será Z2) variar claro
k <- 1


# Calcula los productos de las combinaciones
psroduct_results <- calc_product_of_combinations(input_numbers, k)
z=sum(psroduct_results)
# Imprime los resultados
print(psroduct_results)
print(z)
print(zt)
print(nt)


combn(letters[1:9], 5)