Özet - Fiyat Vektörü

Coddy'nin R Journey'sinin Temeller bölümünün bir parçası — ders 60 / 78.

Görev

Kolay

İki satırlık bir girdi alacaksınız:

Virgülle ayrılmış orijinal fiyatların listesi (örneğin, 100,200,150,80)
Tam sayı olarak bir indirim yüzdesi (örneğin, %20 için 20)

Aşağıdaki işlemleri gerçekleştirin:

Virgülle ayrılmış fiyatlardan bir vektör oluşturun
Mağaza müdürü üçüncü ürünün yanlış fiyatlandırıldığını fark etti. Onu 125 olarak değiştirin
Tüm fiyatlara indirimi uygulayın ((100 - discount) / 100 ile çarpın)
İndirimli fiyatlar vektörünü yazdırın
sum() kullanarak tüm indirimli fiyatların toplamını yazdırın
mean() kullanarak ortalama indirimli fiyatı yazdırın

Örneğin, girdiler şunlarsa:

100,200,150,80
20

Çıktı şöyle olmalıdır:

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

Açıklama: Üçüncü fiyat 125 olarak değiştirilir, ardından %20 indirim uygulanır (0.8 ile çarpılır), sonuç olarak 80, 160, 100 ve 64 fiyatları elde edilir.

Kendin dene

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

# Girdileri dönüştür
original_prices <- as.numeric(unlist(strsplit(prices_input, ",")))
discount_percent <- as.numeric(discount)

# TODO: Kodunuzu aşağıya yazın
# 1. Üçüncü öğeyi 125 olarak değiştirin
# 2. İndirimi tüm fiyatlara uygulayın
# 3. İndirimli fiyatlar vektörünü yazdırın
# 4. sum() kullanarak toplamı yazdırın
# 5. mean() kullanarak ortalamayı yazdırın