R/get.diag.R

get.diag <- function(x,...){
   if(!is.matrix(x)) x else diag(x,...)
}

Try the ipdmeta package in your browser

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

ipdmeta documentation built on May 2, 2019, 3:29 p.m.