R/utils.R
In hsloot/cvalr: Credit Derivative Valuation in R
Defines functions
adjacent_differences
simplify2vector
#' @keywords internal
simplify2vector <- function(x) {
if (isTRUE(is.matrix(x)) && isTRUE(1L == nrow(x) || 1L == ncol(x))) {
x <- as.vector(x)
}
x
}
#' @keywords internal
adjacent_differences <- function(x) {
c(x[[1]], diff(x))
}
hsloot/cvalr documentation built on Sept. 24, 2022, 9:25 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions adjacent_differences simplify2vector
#' @keywords internal
simplify2vector <- function(x) {
if (isTRUE(is.matrix(x)) && isTRUE(1L == nrow(x) || 1L == ncol(x))) {
x <- as.vector(x)
}
x
}
#' @keywords internal
adjacent_differences <- function(x) {
c(x[[1]], diff(x))
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.