`[.weyl` <- function(x,...){ coeffs(x)[!(...)] <- 0 return(x) } `[<-.weyl` <- function(x,index,value){ coeffs(x)[index] <- value return(x) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.