Displaying 1 result from an estimated 1 matches for "getam".
Did you mean:
getas
2011 Aug 26
0
R.oo inheritance with pass by reference
...nction(m,perobj) {
if(missing(m))m=NA;
if(missing(perobj))perobj=NA;
extend(Object(), "AgeMultiplier",
.m=m,
.perobj=perobj,
.AM=NA,
.WM=NA
)
})
setMethodS3("getPerObj", "AgeMultiplier", function(this, ...) {
this$.perobj
})
setMethodS3("getAM", "AgeMultiplier", function(this, ...) {
this$.AM
})
setMethodS3("getWM", "AgeMultiplier", function(this, ...) {
this$.WM
})
setMethodS3("doMultiplyAge", "AgeMultiplier", function(this, ...) {
a = this$.perobj;
this$.AM = a$getAge()...