R/parUin.R

parUin <- function() {
	if (exists("is.R") && is.function(is.R) && is.R()) {
		par("pin") / {u <- par("usr"); c(diff(u[1:2]), diff(u[3:4]))}
	} else  par()$uin

}

Try the mixreg package in your browser

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

mixreg documentation built on May 2, 2019, 3:25 a.m.