R/parUin.R

Defines functions parUin

Documented in parUin

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 Oct. 14, 2021, 9:12 a.m.