[R-br] Programa para calcular expoente de um número inteiro

[Felipe]

Prezdos colegas,

Fiz um simples programa para calcular um número real elevado à um 
expoente inteiro, para treinar um pouco programação no R.
Porém não rodou com o seguinte código e erro:


B <- cat("entre com a base")
2
C <- cat("entre com o expoente inteiro C")
5
exp <- function(B,C)
{
     if (C - as.integer(C)!= 0)
         cat("Entre com expoente inteiro")
     else{
          if (C < 0)
              cat("Só aceitamos expoentes positivos")
          else if (C == 0)
              resp = 1
          else{
              resp = 1
          for (i in 1:C)
              resp = resp*B
          cat ("O valor de B =",B,"elevado a C =",C,"é:",resp)}}
  }
exp(B,C)

Erro em if (C - as.integer(C) != 0) cat("Entre com expoente inteiro") 
else { (from #3) :
   argumento tem comprimento zero

Se alguém puder ajudar, ficarei muito grato!!