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!!