R/u.R

u <-
function(f, x, beta) 
{
  for (i in 1:length(beta)) 
  {
    assign(eval(parse(text = paste0("pars[", i, "]"))), beta[i])
  }
  res <- function(x){eval({x<-x;f})}
  return(res)
}

Try the radir package in your browser

Any scripts or data that you put into this service are public.

radir documentation built on July 3, 2019, 9:02 a.m.