Resumen - Vector de precios

Parte de la sección Fundamentos del Journey de R de Coddy — lección 60 de 78.

Desafío

Fácil

Recibirás dos líneas de entrada:

Una lista de precios originales separados por comas (por ejemplo, 100,200,150,80)
Un porcentaje de descuento como un número entero (por ejemplo, 20 para el 20%)

Realiza las siguientes operaciones:

Crea un vector a partir de los precios separados por comas
El gerente de la tienda notó que el tercer artículo tenía un precio incorrecto. Cámbialo a 125
Aplica el descuento a todos los precios (multiplica por (100 - discount) / 100)
Imprime el vector de precios con descuento
Imprime el total de todos los precios con descuento usando sum()
Imprime el precio promedio con descuento usando mean()

Por ejemplo, si las entradas son:

100,200,150,80
20

La salida debería ser:

[1]  80 160 100  64
[1] 404
[1] 101

Explicación: El tercer precio se cambia a 125, luego se aplica un descuento del 20% (multiplicar por 0.8), lo que resulta en los precios 80, 160, 100 y 64.

Pruébalo tú mismo

# Leer entrada
con <- file("stdin", "r")
prices_input <- suppressWarnings(readLines(con, n = 1))
discount <- suppressWarnings(readLines(con, n = 1))
close(con)

# Convertir entradas
original_prices <- as.numeric(unlist(strsplit(prices_input, ",")))
discount_percent <- as.numeric(discount)

# TODO: Escribe tu código a continuación
# 1. Cambiar el tercer elemento a 125
# 2. Aplicar el descuento a todos los precios
# 3. Imprimir el vector de precios con descuento
# 4. Imprimir el total usando sum()
# 5. Imprimir el promedio usando mean()