R help - Nov 2008 - Classes

Code:

# svm is an S3 class, so:
setOldClass("svm")

# Create the super class model:
setClass("model")

# For svm from e1071 this works (well gives no error):
setIs("svm", "model")

# For rvm from kernlab this gives and error:
setIs("rvm", "model")

# the "superclass" list for class "rvm" includes an
undefined class
"vm"

Is there any way round this?

I am trying to write a super class so that I can use the same
interface for both of these classes.

Thanks.

>>>>> "N" == Nick  <nick.straw at gmail.com>
>>>>>     on Sat, 15 Nov 2008 13:39:44 -0800 (PST) writes:
    N> Code: # svm is an S3 class, so: setOldClass("svm")

    N> # Create the super class model: setClass("model")

    N> # For svm from e1071 this works (well gives no error):
    N> setIs("svm", "model")

    N> # For rvm from kernlab this gives and error: setIs("rvm",
    N> "model")

    N> # the "superclass" list for class "rvm" includes
an
    N> undefined class "vm"

    N> Is there any way round this?

    N> I am trying to write a super class so that I can use the
    N> same interface for both of these classes.

You might try to use  classUnion() for that.

Honestly, I neither understand the problem you see, but have not
had time to delve into it.

Martin