NOBUILD/Rsac/R/mul.R

In abarbour/irisws: Access the suite of IRIS Web Services

"mul" <- function(s, c)
{
  n <- length(s)
  l <- length(c)
  if(l < n)
    c <- c(c, rep(c[l], (n - l)))
  for(i in 1:n)
    s[[i]]$amp <- s[[i]]$amp * c[i]
  return(s)
}

"add" <- function(s, c)
{
  n <- length(s)
  l <- length(c)
  if(l < n)
    c <- c(c, rep(c[l], (n - l)))
  for(i in 1:n)
    s[[i]]$amp <- s[[i]]$amp + c[i]
  return(s)
}

"pow" <- function(s, c)
{
  n <- length(s)
  l <- length(c)
  if(l < n)
    c <- c(c, rep(c[l], (n - l)))
  for(i in 1:n)
    s[[i]]$amp <- s[[i]]$amp ^ c[i]
  return(s)
}