32 lines
552 B
R
32 lines
552 B
R
#' @useDynLib testpkg, .registration = TRUE
|
|
"_PACKAGE"
|
|
|
|
#' Add it together
|
|
#'
|
|
#' @param a Number
|
|
#' @param b Number
|
|
#' @return Sum of numbers
|
|
#' @export
|
|
add_it <- function(a, b) {
|
|
.Call("add", a, b)
|
|
}
|
|
|
|
#' Subtract it
|
|
#'
|
|
#' @param a Number
|
|
#' @param b Number
|
|
#' @return Difference of numbers
|
|
#' @export
|
|
subtract_it <- function(a, b) {
|
|
.Call("subtract", a, b)
|
|
}
|
|
|
|
#' Square it up
|
|
#'
|
|
#' @param n Integer
|
|
#' @return Square
|
|
#' @export
|
|
square_it <- function(n) {
|
|
result <- .Fortran("square", n = as.integer(n), answer = as.integer(1))
|
|
result$answer
|
|
}
|