r - R: If 条件の後にいくつかのコマンドが続く

Question

いくつかのコマンドが続く if 条件があります。ただし、構文エラーがあるようで、機能していません。これはかなり簡単だと思います。正しいドキュメントを探しましたが、解決策が見つかりませんでした。ご協力いただきありがとうございます！

#data
supply_by_gas <- rep(0,365)
supply_by_gas[] <- 32069547/365
overall_gas_prod <- 51224298

#here the condition which should be true
if (overall_gas_prod > sum(supply_by_gas))
#followed by two commands
{peak_use_gas <- (overall_gas_prod - sum(supply_by_gas))
overall_gas_prod <- sum(supply_by_gas)-1 }
else
{peak_use_gas <- 0}

それは私が受け取るエラーです:

Unexpected 'else' in "else" 
> {peak_use_gas <- 0}

Answer 1

if (overall_gas_prod > sum(supply_by_gas)) {
    peak_use_gas <- (overall_gas_prod - sum(supply_by_gas))
overall_gas_prod <- sum(supply_by_gas)-1 
} else  {
peak_use_gas <- 0
}