Dancols_sub2 <- function(pts,x1,y1,x2,y2){ # # ci=abs(Dancols_sub(x1,y1,x2,y2,pts=pts)$output[1,8]) ci }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.