#' ln_approx
#' Warpper function of approx
#' @importFrom stats approx
#' @export
ln_approx <-function(df,x.name,y.name,xout){
if(missing(xout)){
output<-approx(x=df[[x.name]],y=df[[y.name]])
xout=0;
}
else {
output<-approx(x=df[[x.name]],y=df[[y.name]], xout)
}
return(output)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.