1
Rを使用してテーブル出力をhttp://www.wolframalpha.com/input/?i=mortgageから複製しようとしています。次のコードを設定しましたが、次に何をすべきかわかりません。ここで住宅ローン現金計算機in R
mortgage_cash_flow_enginer <- function(loan_amt,loan_period,APR){
loan_amt <- readline(prompt = "Loan Amount: ")
loan_period <- readline(prompt = "Loan Peroid: ")
APR <- readline(prompt = "Annual Percentage Rate (%): ")
pmt_numerator <- ((loan_amt)*((APR)/(100*12L)))
morpmt_denomenator <- (1-((1+((APR)/(100*12L)))^((-1)*loan_period*12)))
monthly_payment <- (pmt_numerator)/(pmt_denomenator)
return(as.integer(monthly_payment))
}
ありがとうございました。私は数式を更新し、必要に応じて動作させました。 – HP63
@ HP63ようこそ、よろしくです! –