library(imfr)





ex_interest <- imf_data(database_id = 'IFS',
indicator = c('FILR_PA', 'EREER_IX'),
freq = 'M')

 interest<-data.frame(ex_interest)


> dim(interest)
[1] 38586     4
> 
write.csv(interest,file='imf_interest.csv',quote=F,row.names=F)
>