R/labit.R

In hafroAssmt: Hafro Assessment Toolbox

Defines functions labit

Documented in labit

labit <- function(x, y, bold=FALSE, sep=" ")
{
  if(bold)
    output <- bquote(paste(bold(.(x)), .(sep), italic(.(y))))
  else
    output <- bquote(paste(.(x), .(sep), italic(.(y))))
  output <- as.expression(output)

  return(output)
}

Try the hafroAssmt package in your browser