Ripasso - Vettore dei prezzi

Fa parte della sezione Fondamenti del percorso R di Coddy. Lezione 60 di 78.

Sfida

Facile

Riceverai due righe di input:

Un elenco di prezzi originali separati da virgole (ad es., 100,200,150,80)
Una percentuale di sconto espressa come numero intero (ad es., 20 per il 20%)

Esegui le seguenti operazioni:

Crea un vettore a partire dai prezzi separati da virgole
Il responsabile del negozio si è accorto che il terzo articolo aveva un prezzo errato. Modificalo impostandolo a 125
Applica lo sconto a tutti i prezzi (moltiplica per (100 - discount) / 100)
Stampa il vettore dei prezzi scontati
Stampa il totale di tutti i prezzi scontati usando sum()
Stampa il prezzo medio scontato usando mean()

Ad esempio, se gli input sono:

100,200,150,80
20

L'output dovrebbe essere:

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

Spiegazione: il terzo prezzo viene modificato impostandolo a 125, poi viene applicato uno sconto del 20% (moltiplicando per 0.8), ottenendo i prezzi 80, 160, 100 e 64.

Provalo tu

# Leggi l'input
con <- file("stdin", "r")
prices_input <- suppressWarnings(readLines(con, n = 1))
discount <- suppressWarnings(readLines(con, n = 1))
close(con)

# Converti gli input
original_prices <- as.numeric(unlist(strsplit(prices_input, ",")))
discount_percent <- as.numeric(discount)

# TODO: Scrivi il tuo codice qui sotto
# 1. Cambia il terzo elemento in 125
# 2. Applica lo sconto a tutti i prezzi
# 3. Stampa il vettore dei prezzi scontati
# 4. Stampa il totale usando sum()
# 5. Stampa la media usando mean()