合計収支の計算（3）

これまでの分析を見ると、調子の良い日と悪い日が混在していたようです。期待していた結果とは違い、もしかしたら1週間の合計がマイナスになっているのでは？と気になってきました。

この疑問に答えるのに役立つのが sum() 関数です。この関数は、ベクトルのすべての要素の合計を計算します。たとえば、ポーカーで稼いだ（または失った）合計金額を計算するには、次のようにします。

total_poker <- sum(poker_vector)

ルーレットで勝った（または負けた）合計金額を計算し、変数 total_roulette に代入しましょう。
ルーレットとポーカーそれぞれの合計が出たら、1週間の全損益の合計である total_week を計算しましょう。
total_week を出力しましょう。