nome_da_função <-function(lista_de_parâmetros){ corpo_da_função: comandos }
AplicaJuroComp <- function(capital, taxa, nPeriodo){ return(capital*(1+taxa)^nPeriodo) }
converteFparaC <- function(farenheit){ celsius <- 5*(farenheit - 32)/5 return(celsius) }
tempF <- 100 print(paste0("F= ", tempF, " => ", converteFparaC(tempF)
saida: "F=100 => C=37.7777777777778"
tempF <- 32 print(paste0("F= ", tempF, " => ", converteFparaC(tempF)
saida: "F=32 => C=0"
raizInteira <- function(num){ cont <- 0 while(cont*cont <= num){ cont <- cont + 1 } return(cont-1) }