R/delzero.R

In Tex4exams: Generating 'Sweave' Code for 'R/exams' Questions in Mathematics

Defines functions delzero

Documented in delzero

## Delete the first zero in the output remainder of polydiv(x,y)[2],
## from the package "pracma".
delzero <- function(x){
  n <- length(x)
  if (abs(x[1])<= 1e-10)
    x <- x[2:n]
  return(x)
}

Try the Tex4exams package in your browser