Tengo dos df:
df1<-data.frame(col1=c("pruebaA","pruebaA","pruebaA","pruebaB","pruebaB","pruebaB"),col2=c("avion","casa","coche","verde","antonio","jardin"), stringsAsFactors = FALSE)
df2<-data.frame(col1=c("pruebaA","pruebaA","pruebaA","pruebaB","pruebaB","pruebaA"),col2=c("avion","casa grande","coche rojo","Berde","antoñito","jardinn"), stringsAsFactors = FALSE)
y le quiero aplicar fastLink
library(fastLink)
modelo<- fastLink(
dfA = df1, dfB = df2,
varnames = c("col1","col2"),
partial.match = c("col2"),
stringdist.match = c("col2"))
Guardo el resultado que me interesa.
(indices<-modelo$matches)
Ahora quiero hacer lo mismo con varios df, por lo que crearé blucles, pero antes realizo una prueba con un solo dato para ver como guardar la información
indices<- list()
prueba <- function(d1, d2) {
fastLink(
dfA = d1, dfB = d2,
varnames = c("col1","col2"),
partial.match = c("col2"),
stringdist.match = c("col2")
)
indices[1]<-prueba$matches
}
prueba(df1,df2)
y no consigo guardar el resultado. He probado con return y tampoco doy con la tecla.