R/extract.R

In weyl: The Weyl Algebra

Defines functions `[<-.weyl` `[.weyl`

`[.weyl` <- function(x,...){
    coeffs(x)[!(...)] <- 0
    return(x)
}

`[<-.weyl` <- function(x,index,value){
    coeffs(x)[index] <- value
    return(x)
}

Try the weyl package in your browser