18 outubro, 2021
sudo apt-get install texlive-full
# Operacoes basicas da matematica aritmetica <- function (a, b, op) { # op: divisi, multi, soma, subtra if (op == "divisi") x <- divisi(a, b) if (op == "multi") x <- multi(a,b) if (op == "soma") x <- soma(a,b) if (op == "subtra") x <- subtra(a,b) return(x) }
soma <- function (a, b) { # Soma calculo <- a + b return(calculo)} subtra <- function (a, b) { #Subtracao calculo <- a - b return(calculo)} multi <- function (a, b) { # Multiplicacao calculo <- a * b return(calculo)} divisi <- function (a, b) { # Divisao calculo <- a / b return(calculo)}
Package: meupacote Type: Package Title: Funcoes Aritmeticas Basicas Version: 1.0 Date: 2021-10-18 Author: Ben Deivide Maintainer: Ben Deivide <ben.deivide@ufsj.edu.br> Description: Este pacote realiza operacoes aritmeticas basicas utilizando dois numeros. License: GPL (>= 2) Encoding: UTF-8 RoxygenNote: 7.1.2
exportPattern("^[[:alpha:]]+")
\name{meupacote-package} \alias{meupacote-package} \alias{meupacote} \docType{package} \name{aritmetica} \alias{aritmetica} \title{Operacoes Matematicas Basicas} \description{ O pacote resolve operacoes como: soma, subtracao, divisao e multiplicacao. } \usage{ aritmetica(a, b, op) }
\arguments{ \item{a}{primeiro numero} \item{b}{segundo numero} \item{op}{operacao matematica} } \details{ A função \code{aritmetica} realiza as quatro operacoes basicas. A opcoes para o argumento \code{op} sao "soma", "divisi", "multi", "subtra" } \examples{ aritmetica(8, 4, op = "divisi") }
#' Operacoes Matematicas Basicas #' #' \code{aritmetica} resolve operacoes como: soma, subtracao, divisao e multiplicacao. #' @param a primeiro numero #' @param b segundo numero #' @param op operacao matematica #' @return A função \code{aritmetica} realiza as quatro operacoes basicas. As opcoes #' para o argumento \code{op} sao "soma", "divisi", "multi", "subtra" #' @examples #' # Loading package #' library(meupacote) #' aritmetica(8, 4, op = "divisi") # @import "nomes de pacotes importados" # @importFrom "Pacotes" "funcoes" #' @export aritmetica <- function (a, b, op) { # op: divisi, multi, soma, subtra if (op == "divisi") x <- divisi(a, b) if (op == "multi") x <- multi(a,b) if (op == "soma") x <- soma(a,b) if (op == "subtra") x <- subtra(a,b) return(x)}
Man/~.Rd