# Funcoes auxiliares
# Soma
soma <- function(a, b) {
calculo <- a + b
return(calculo)
}
# Subtracao
subtra <- function(a, b) {
calculo <- a - b
return(calculo)
}
# Multiplicacao
multi <- function(a, b) {
calculo <- a * b
return(calculo)
}
# Divisao
divisi <- function(a, b) {
calculo <- a / b
return(calculo)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.