structural_function {GE}

Structural Function

Description

A structured function is a kind of kinked (piecewise) function generated by connecting two functions through a transition region. This function calculates the value of a structured function.

Usage

structural_function(theta, transition.interval, f1, f2, ...)

Arguments

theta

the track switching parameter, which is a scalar.

transition.interval

a 2-vector.

f1

the first function (or a value).

f2

the second function (or a value).

...

parameters of f1 and f2.

Value

The value of the structural function.

Examples

x <- seq(1, 5, 0.1)
y <- c()
for (theta in x) y <- c(y, structural_function(theta, c(2, 3), log, sqrt, theta))
plot(x, y)
lines(x, log(x), col = "blue")
lines(x, sqrt(x), col = "red")

####
f <- function(theta) {
  p <- c(1, 1)
  structural_function(
    theta,
    c(15, 20),
    function(p) CD_A(alpha = 5, Beta = c(0.6, 0.4), p),
    function(p) CD_A(alpha = 15, Beta = c(0.3, 0.7), p),
    p
  )
}

tmp <- sapply(1:25, f)
matplot(t(tmp), type = "l")