復習 - 価格ベクトル
CoddyのRジャーニー「基礎」セクションの一部 — レッスン 60/78。
チャレンジ
簡単2行の入力を受け取ります：
- カンマ区切りの元の価格リスト（例：
100,200,150,80） - 整数としての割引率（例：20%の場合は
20）
以下の操作を実行してください：
- カンマ区切りの価格からベクトルを作成します
- 店長が3番目の商品の価格設定が間違っていることに気づきました。それを
125に変更してください - すべての価格に割引を適用します（
(100 - discount) / 100を掛けます） - 割引後の価格ベクトルを表示します
sum()を使用して、割引後のすべての価格の合計を表示しますmean()を使用して、割引後の平均価格を表示します
例えば、入力が以下の場合：
100,200,150,80
20出力は以下のようになります：
[1] 80 160 100 64
[1] 404
[1] 101説明：3番目の価格が125に変更され、その後20%の割引が適用（0.8を掛ける）された結果、価格は80、160、100、64になります。
自分で試してみよう
# 入力を読み込む
con <- file("stdin", "r")
prices_input <- suppressWarnings(readLines(con, n = 1))
discount <- suppressWarnings(readLines(con, n = 1))
close(con)
# 入力を変換する
original_prices <- as.numeric(unlist(strsplit(prices_input, ",")))
discount_percent <- as.numeric(discount)
# TODO: 以下にコードを記述してください
# 1. 3番目の項目を125に変更する
# 2. すべての価格に割引を適用する
# 3. 割引後の価格のベクトルを表示する
# 4. sum() を使用して合計を表示する
# 5. mean() を使用して平均を表示する