R/getCov.R

getCov <-
function(obj){
  if(length(obj)!=3) print("Please input the correct formula in the form of y~ x1+x2+...")
  term=obj[[3]]
  res=all.vars(term)
  return(res)
}

Try the SPREDA package in your browser

Any scripts or data that you put into this service are public.

SPREDA documentation built on May 2, 2019, 4 p.m.