参数用于R

scorekm <- function(km, x1,x2,x3,x4) { 
    data<-matrix(c(x1,x2,x3,x4),nrow=1) 
    k <- nrow(km$centers) 
    n <- nrow(data) 
    d <- as.matrix(dist(rbind(km$centers, data)))[-(1:k),1:k] 
    d <- matrix(d,nrow=1) 
    out <- apply(d, 1, which.min) 
    return(out) 
}

这是我的原始功能。现在有几个参数（不只是4个，也许8个，12个......），每4个作为一个单位。我应该使用for循环吗？在for循环中，我怎样才能达到参数？我怎么知道有多少？参数用于R

scorekm <- function(km,x...){}

函数应该是这样的。

km<-kmeans(iris,3) 
scorekm<- 
function(km, x,...) 
{ 
result=NULL 
for(i in 1:nargs()-1) 
{ 
data<-matrix(c(args[[i+1]],args[[i+2]],args[[i+3]],args[[i+4]]),nrow=1) 
k <- nrow(km$centers) 
d <- as.matrix(dist(rbind(km$centers, data)))[-(1:k),1:k] 
d <- matrix(d,nrow=1) 
out <- apply(d, 1, which.min) 
result<-cbind(out,result) 
i<-i+4 
} 
return(result)}

来源

2013-07-22 Will Wang

scorekm < - 功能（千米，X，......） {}这应该是这样的。 –

对不起，我已经保存了我的更改。 –

你的问题仍然不清楚。你想用x1，x2，x3等来做什么？不管有多少个，你想不想制作一个矩阵？ – Thomas

我将通过...收集所有的变量，像这样：

scorekm <- function(km, x, ...) { 
    x.args <- list(...) 
    out <- do.call("cbind", x.args) 
    out 
}

注意，通过命名你的论点，你给它一个列名“当您去。”

> scorekm(km = 1, x = 2, x1 = runif(3), column2 = runif(3), variable3 = runif(3)) 
      x1 column2 variable3 
[1,] 0.2106436 0.07142857 0.6466394 
[2,] 0.3684540 0.16306419 0.9937268 
[3,] 0.5230319 0.66318683 0.3020110

来源

2013-07-22 10:30:33

回答

相关问题