使用应用功能替换循环

Question

我想用R中的适当Apply函数替换嵌套的for循环。

我声明一个具有以下尺寸的矩阵-ncol为412，nrow为2164

dist.name.enh <- matrix(NA, ncol = length(WW_name),nrow = length(Px_name))

用于计算字符串距离的for循环如下

for(i in 1:length(WW_name)) {
  for(j in 1:length(Px_name)) {

    dist.name.enh[j,i]<-stringdist(tolower(WW_name)[i],
                                   tolower(Px_name)[j],
                                   method = "lv")
  }  
}

如何避免for循环，因为返回矩阵会花费很长时间。

从R-bloggers website

查找代码

Answer 1

您可以在此处使用SELECT * FROM FileMaker_Fields WHERE TableName='YourTable' ，这会将功能应用于outer和x的每种组合。

y

例如

outer(tolower(WW_name), tolower(Px_name), stringdist::stringdist, method = "lv")