s4

    7

    3答えて

    現在、参照クラスを使用してパッケージを作成しています。それらは、参照メソッドは、むしろ、クラス内のすべてのオブジェクト にコピーされ、すべてのされていないので、私が集まる Method initialisation in R reference classes Can't reliably use RefClass methods in Snowfall 原因です:私は、さまざまなソースを読んでか

    1

    1答えて

    RでS4クラスの作成に関連する質問があります。 "setClass"関数には、作成されたクラスのメタデータ を格納する場所を指定する名前付き属性 "where"があります。マニュアルに。 例えば、私は次のよう > en <- new.env(parent=emptyenv()) > setClass("A", representation(x="numeric"), where=en) [1]

    3

    1答えて

    誰でもこのエラーが表示される理由を教えてください。 Error in as.integer(tm) : cannot coerce type 'S4' to vector of type 'integer? 私はインターネットを検索していますが、問題を解決できませんでした。 library(Matrix) long <- file("C:\\New folder (5)\\inra.b

    2

    1答えて

    代入演算子なしで呼び出すことができるRの初期化置換メソッドをいくつか持っています。例えばので : 私はsetNode(o)を呼び出し、setnode(o) <- c("foo", "bar")などのようなものを呼び出すことなく、オブジェクトoのスロットを交換できるようにしたいと思います。私がこれをやりたいのは、ユーザーがその割り当ての詳細を意識することなく、これらの中にいくつかのインタラクティビテ

    1

    1答えて

    predictは、引数objectと...で定義されています。私はpcaaddと呼ばれるPCAのようなモデルを導き、predict.pcaadd関数を書いた。ここまでは順調ですね。今度は"pcaadd"のobjectと("hyperSpec"の)newdataという特定の種類のオブジェクトで動作する(S4)メソッドを追加したいと思います。 (generic)genericがobjectと...のみ

    1

    1答えて

    私はこれを行うにはしたいと思います: library(party) # cts <- ??? n <- c(50, 100, 116) for(i in 1:length(n)) { data <- airq[1:n[i], ] airct <- ctree(Ozone ~ ., data) cts[i] <- airct } 私はctree

    9

    1答えて

    S3クラスとS4クラスの両方で実装する汎用関数を定義する良い方法はありますか?私はこのようなものを使用されています: setGeneric("myfun", function(x, ...){ standardGeneric("myfun"); }); setMethod("myfun", "ANY", function(x, ...) { if(!isS4(x)) {

    7

    2答えて

    thisに関連していますが、若干異なります。 私は、S4クラスとS3クラスの両方でメソッドを正式に登録する方法を探していますが、ディスパッチのためのひどいS3-dot-naming-schemeに頼ることはありません。例: setClass("foo"); setClass("bar"); setGeneric("test", function(x, ...){ standardG

    0

    2答えて

    時系列データを自動的にNIG分布に収めたいと思います。 パッケージのnigfit()を使って、ベーシック分布のmu、alpha、beta、deltaを推定します。 > nigFit(histDailyReturns,doplot=FALSE,trace=FALSE) Title: Normal Inverse Gaussian Parameter Estimation Call: .n

    1

    1答えて

    は、次のS4クラスを考えてみましょう: setClass('Foo', representation(model='data.frame')) setMethod('initialize', 'Foo', function(.Object, a, b) { [email protected] <- data.frame(a, b) .Object