Displaying 1 result from an estimated 1 matches for "storetag".
Did you mean:
storeage
2004 Apr 04
1
How to improve this code?
...ot;, TAsize[i],
"\n")
storelatlon <- storelist[j, 2:3]
whichval <-
which(rdist.earth(t(as.matrix(storelatlon)), as.matrix(custlatlon),
miles=F) <= TAsize[i])
dist <-
as.data.frame(rdist.earth(t(as.matrix(storelatlon)),
as.matrix(custlatlon), miles=F)[whichval])
storetag <-
as.data.frame(cbind(1:nrow(dist),storelist[j,1]))
fincalc <-
as.data.frame(cbind(1:nrow(dist),(customerlist[whichval,1]),rdist.earth(t(as.matrix(storelatlon)),
as.matrix(custlatlon), miles=F)[whichval]))
combinedata <- data.frame(storetag, fincalc)
combinefinal <- subset(comb...