4

データフレームから継承する新しいクラスを作成しようとしています。

> setClass('new.frame',
    representation(colour='character'),
    contains = 'data.frame')

これは、テスト用のそのクラスのインスタンスです。

> test_data = data.frame(cbind(runif(5), runif(5)))
> names(test_data) = c('X', 'Y')
> test_frame = new('new.frame', test_data, colour='red')

それが大丈夫に見えることを確認するためだけに...

> data.frame
Object of class "new.frame"
          X         Y
1 0.8766306 0.4741213
2 0.1221508 0.5117665
3 0.4838761 0.4973627
4 0.7858294 0.4064749
5 0.5147703 0.9135304
Slot "colour":
[1] "red"

...そして継承が機能したことを確認する

> is.data.frame(test_frame)
[1] TRUE
> getClass(class(test_frame))
Class "new.frame" [in ".GlobalEnv"]

Slots:

Name:                .Data              colour               names
Class:                list           character           character

Name:            row.names            .S3Class
Class: data.frameRowLabels           character

Extends: 
Class "data.frame", directly
Class "list", by class "data.frame", distance 2
Class "oldClass", by class "data.frame", distance 2
Class "vector", by class "data.frame", distance 3

データフレームであるという特性を利用しようとしたときに遭遇した問題は次のとおりです。

> terms.formula(Y ~ X, data = test_frame)
Error in terms.formula(Y ~ X, data = test_frame) : 
  'data' argument is of the wrong type

私は愚かな何かを逃したかもしれません。もしそうなら、それを指摘してくれてありがとう。

ここでの問題について正しければ、とにかくterms.formulaにdata.frameを与えているという事実を認識させることができますか？

4

1 に答える 1

1

実行してdebug(terms.formula)から実行terms.formula(Y ~ X, data = test_frame)すると、引用されたコード ブロックの 3 行目と 4 行目でコードが失敗していることがわかります。

if (!is.null(data) && !is.environment(data) && !is.data.frame(data)) 
    data <- as.data.frame(data, optional = TRUE)
terms <- .Internal(terms.formula(x, specials, data, keep.order, 
    allowDotAsName))

問題は、 への呼び出しが.Internal(terms.formula())'plain old' を期待してdata.frameおり、代わりに class のオブジェクトが渡されていることですnew.frame。回避策として、terms.formula()期待するオブジェクトのタイプ (装飾されていない data.frame) を渡さないのはなぜですか?

これを行う簡単な方法の 1 つを次に示します。

terms.formula(Y ~ X, data = unclass(test_frame))
# Y ~ X
# attr(,"variables")
# list(Y, X)
# attr(,"factors")
#   X
# Y 0
# X 1
# attr(,"term.labels")
# [1] "X"
# attr(,"order")
# [1] 1
# attr(,"intercept")
# [1] 1
# attr(,"response")
# [1] 1
# attr(,".Environment")
# <environment: R_GlobalEnv>
于 2012-10-31T07:33:23.420 に答える