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)),
...