stats::kmeans
反復回数を返すように関数を変更しようとしています (こちらを参照)。ソースを自分のファイルにコピーし、関数を変更しC_kmns
て実行すると、関数を実行しようとすると、オブジェクトが見つからないというエラーが発生しdo_one
ます。.Fortran
このオブジェクトは呼び出しに渡され、kmeans
関数内のどこにも作成されていません。このオブジェクトはどこから来たのですか?
私が得ているエラーは
Error in do_one(nmeth) : object 'C_kmns' not found
「問題のある」呼び出しのコード スニペットを次に示します。
do_one <- function(nmeth) {
Z <-
switch(nmeth,
{ # 1
Z <- .Fortran(C_kmns, as.double(x), as.integer(m),
as.integer(ncol(x)),
...