4-Convierte tasa CAT a tasa mensual y viceversa

Función que ejemplifica un uso de la función round( ,digits= )
###################################################
#cat=tasa de interes anual, o bien,
#cat (costo anual total), entre 0 y 100%
#i=tasa de interes mensual, entre 0 y 100%
#Convierte la cantidad positiva
###################################################
conv.cat.mensual=function(cat,i){
  if(cat>0){
    cat=cat/100
    i=(1+cat)^(1/12)-1
    i=round(i*100,digits=2)
    paste("El cat de",cat*100,"% equivale a una tasa de interes de",
          i, "% mensual.")
  }else{
    i=i/100
    cat=(1+i)^12-1
    cat=round(cat*100,digits=2)
    paste("La tasa de interes  mensual de",
          i*100, "% equivale a un cat de",cat, "%.")
  }
}
#EJEMPLO 1
conv.cat.mensual(70,0)
#EJEMPLO 2
conv.cat.mensual(0,5)