lcomm

#Function to extract the cluster ID variable from a formula
get_id <- function(formula){
    
    #Extract the thing between the | and the ) in the last part of formula
    #This is the clustering variable
    idvar <- gsub('.*[|](.*?)).*','\\1',formula[-c(1:2)])
    
    #Remove white space
    idvar <- gsub("^\\s+|\\s+$", "", idvar)
    

lcomm

#########################
# Print methods in R    #
#########################

#Create my silly function
myfunc <- function(mu){
    x <- rnorm(1, mean=mu, sd=3)
    class(x) <- "myfunc"
    return(x)
}

lcomm

\documentclass[]{article}
\usepackage{tikz}
\usetikzlibrary{positioning}

\begin{document}

%Graph 1
\begin{figure}
	\caption{Graph 1}
	\large{\begin{tikzpicture}[%