library(FinancialMath)

df=amort.table(Loan=50000,n=12*30,i=.01,ic=1,pf=12)

head(df,n=10)