# NOT RUN {
#function object
#with private and public attributes
f <- function (x)
{ . = THAT ()
with (.,
paste (A, B, x, sep=":") )
}
f <- EXTEND (f, "concat", .X=10, A="A", B="B")
#compact print
object.model (f)
#semi-compact print
object.summary (f)
# }
Run the code above in your browser using DataLab