Displaying 1 result from an estimated 1 matches for "fincalc".
Did you mean:
fincall
2004 Apr 04
1
How to improve this code?
...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(combinedata, select= c(-1,-3))
flush.console()
write.table(co...