1

私の目的は、クラス Security のスロットの 1 つを別のクラス Quote として定義することです。

まず、クラス Quote を定義します。

Quote <- setClass("Quote", slots = c(Last = "numeric", Settle = "numeric"))

次に、クラス Security を次のように定義しようとしています。

Security <- setClass("Security", slots = c(Name = "character", Price = "Quote"))

最後に、クラス Security のコンストラクターを作成しようとしています。 

Security <- function(Name = character(), Last = numeric(), Settle = numeric()) 
 new("Security", Name = Name, Price@Last = Last, Price@Settle = Settle)

残念ながら、このコードは機能しません...

前もって感謝します。

4

2 に答える 2

0

私はまだ S4 を学ぼうとしていますが、認められた専門家がすでに答えを出していることがわかりました。

.Quote <- setClass("Quote", slots = c(Last = "numeric", Settle = "numeric"))
.Security <- setClass("Security", slots = c(Name = "character", Price = "Quote"))
 aNewSecurity <- .Security(Name = "newSec", 
                           Price = .Quote(Last =20, Settle = 40) )
 aNewSecurity
An object of class "Security"
Slot "Name":
[1] "newSec"

Slot "Price":
An object of class "Quote"
Slot "Last":
[1] 20

Slot "Settle":
[1] 40

このドメインで見積もりアイテムをセキュリティアイテムから分離する必要があるかどうかを知るには、私には十分な知識がありません。

于 2013-10-10T18:31:00.097 に答える