##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (text, cex, color, size)
{
dp <- getClass("Title")@prototype@dp
if (!missing(cex))
setPar(dp, "cex", cex)
if (!missing(color))
setPar(dp, "color", color)
if (!missing(size))
setPar(dp, "size", size)
new("Title", title = text, dp = dp)
}
Run the code above in your browser using DataLab