操作S4類

Question

Example of the problem - class.a has slots 1, 2, 3 
and inherits from class c (4, and 5). 
The slots in class (1, 2, 3) are passed to function.b as variables. 
the output of function b is as class.c. So now I have the following. 



class.a 
    slot 1 a value 
    slot 2 a value 
    slot 3 a value 
    slot 4 empty 
    slot 5 empty 

    class.c 
    slot 4 a result 
    slot 5 a result 

可以將class.c簡單地合併到class.a中嗎？如果是這樣，怎麼樣？我搜查了文檔和 我看了一個虛擬和超類。 我不能合併一起上課

這裏找到什麼是創建類的代碼 - 利用債券細節 BondTermStructure使用債券輸入項計算輸入的計算存儲信息 BondCashFlows

setClass("BondDetails", 
     representation(
     Cusip = "character", 
     ID = "character", 
     BondType = "character", 
     Coupon = "numeric", 
     IssueDate = "character", 
     DatedDate = "character", 
     StartDate = "character", 
     Maturity = "character", 
     LastPmtDate = "character", 
     NextPmtDate = "character", 
     Moody = "character", 
     SP = "character", 
     BondLab = "character", 
     Frequency = "numeric", 
     BondBasis = "character", 
     Callable = "character", 
     Putable = "character", 
     SinkingFund = "character")) 

setClass("BondCashFlows", 
    representation(
    Price = "numeric", 
    Acrrued = "numeric", 
    YieldToMaturity = "numeric", 
    ModDuration = "numeric", 
    Convexity = "numeric", 
    Period = "numeric", 
    PmtDate = "Date", 
    TimePeriod = "numeric", 
    PrincipalOutstanding = "numeric", 
    CouponPmt = "numeric", 
    TotalCashFlow = "numeric")) 

setClass("BondTermStructure", 
    representation(
    EffDuration = "numeric", 
    EffConvexity = "numeric", 
    KeyRateTenor = "numeric", 
    KeyRateDuration = "numeric", 
    KeyRateConvexity = "numeric")) 

setClass("BondAnalytics", 
    contains = c("BondDetails","BondCashFlows", "BondTermStructure")) 

BondDetails細節和bondcashflows

我需要把它們都納入BondAnalytics，所以我可以創建一個輸出的方法，我只是 似乎無法得到它的權利這些如何變成了超類

Answer 1

取決於那700行其他代碼的作用......默認情況下，S4類的initialize方法是一個拷貝構造函數，將未命名的參數作爲基類的實例。也許你的意思是你有這樣的事情（我的類A，B，C不符合您的課，但不知何故，命名似乎更有意義，我的問題的理解）

.A <- setClass("A", representation(a="numeric")) 
.B <- setClass("B", representation(b="numeric")) 
.C <- setClass("C", contains=c("A", "B")) 

.A(...)是自動生成「A」類的構造函數等; .A(...)創建類「A」的新實例，然後用新實例和參數...調用initialize（即複製構造函數）。一種可能性是，你有「A」的實例和「B」的實例，你想建設和「C」

a <- .A(a=1) 
b <- .B(b=2) 

的實例與

> .C(a, b)    # Construct "C" from base classes "A" and "B" 
An object of class "C" 
Slot "a": 
[1] 1 

Slot "b": 
[1] 2 

另一種可能是你已經擁有的「C」的實例，你想更新值中包含那些從「B」

b <- .B(b=2) 
c <- .C(a=1, b=3) 

然後

的實例

> initialize(c, b)  # Copy c, replacing slots from 'B' with 'b' 
An object of class "C" 
Slot "a": 
[1] 1 

Slot "b": 
[1] 2