Displaying 1 result from an estimated 1 matches for "combinefinal".
2004 Apr 04
1
How to improve this code?
...iles=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(combinefinal, file = outfile, append=TRUE,
sep=",", col.names=FALSE)
}
}