R/fsin.R

In GenOU: Sequential Change-Point Tests for Generalized Ornstein-Uhlenbeck Processes

#'@title Function calculating basis sine function
#'
#'@description This function computes the normalized sine function.
#'
#'@param s    Parameter of function
#'
#'
#'@return \item{f}{Normalized sine function}
#'
#'@keywords internal
#'
#'@export

fsin <- function(s)
  {
  f=sqrt(2) * sin(2 * pi * s)
  return( f)
}