В R, как установить класс S4 на основе класса другого объекта

Question

Мне нужно создать объект типа ShortReadQ из библиотеки ShortRead в Bioconductor.

ShortReadQ 'signature(sread = "DNAStringSet", quality =
          "QualityScore", id = "BStringSet")'

Слот качества должен быть объектом, унаследованным от QualityScore, который я легко могу определить из другого объекта ShortReadQ, который я хочу эмулировать.

> class(quality(anotherObject))
[1] "SFastqQuality"
attr(,"package")
[1] "ShortRead"

Как лучше всего использовать эту информацию («SFastqQuality») в аргументе конструктора?

newObject<-ShortReadQ(sread=...,
             quality=SFastqQuality(...), 
             id=...)

Answer 1

Делает ли это то, что вы хотите?

quality = new(class(old.quality.obj)[[1]]))

Answer 2

спасибо за ваши ответы. они приводят меня к решению, которое работает

newObject<-ShortReadQ(sread=...,
             quality=new(Class=class(quality(anotherObject)),theFirstParameter=...), 
             id=...)

Answer 3

Возможно, вы захотите получить функцию:

a <- get(class(object))
a(...)