Displaying 1 result from an estimated 1 matches for "setdogage".
Did you mean:
getdogage
2011 Oct 27
0
R.oo package, inherit two classes
...num;
})
# ..........................................
setConstructorS3("Dog", function(dog_age=NA) {
this = extend(Object(), "Dog",
.dog_age=dog_age
)
this
})
setMethodS3("getDogAge", "Dog", function(this, ...) {
this$.dog_age;
})
setMethodS3("setDogAge", "Dog", function(this,num, ...) {
this$.dog_age = num;
})
#..........................................................
setConstructorS3("PerDog", function(age=NA,wt=NA,dog_age=NULL) {
extend(Person(age=age),Dog(dog_age=dog_age), "PerDog",
.wt=wt
)
})
setMe...