dfInstruments <- data.frame(c("SWAP", "SWAP"), c(1,10), c(1,1), c(0.025, 0.05))
colnames( dfInstruments ) <- c( "Type", "Tenor", "Frequency", "Rate" )
Curve <- fFitSmithWilsonYieldCurveToInstruments( dfInstruments, 0.04, 0.1 )
plot( Curve )
Run the code above in your browser using DataLab