0

私は RExcel マクロを作成するのが初めてで、質問があります。を介してマクロからユーザー入力を取得していますInputBox()。入力は整数です。次に、この整数値を R に渡します。

これは私の試みです：

Option Explicit
Sub KMeansClustering()
Dim k As Integer
RInterface.PutDataframe "mydata", Selection
RInterface.RRun "testdata <- na.omit(mydata)"
RInterface.RRun "testdata <- scale(testdata)"
k = InputBox("Enter k")    
' Supply data from VBA k variable to k R variable
RInterface.RRun "fit <- kmeans(testdata, k)"
RInterface.RRun "aggregate(testdata,by=list(fit$cluster),FUN=mean)"
RInterface.RRun "result <- data.frame(testdata, fit$cluster)"
End Sub
4

1 に答える 1

0

R で "k" を使用する前に、まず値を R 変数 (配列) に転送する必要があります。

Rinterface.PutArrayFromVBA("k_value", k) Rinterface.RRun "fit <- kmeans(testdata, k_value)"

于 2015-04-10T09:22:01.720 に答える