Displaying 1 result from an estimated 1 matches for "outfilecolnam".
Did you mean:
outfilecolnames
2004 Apr 04
1
How to improve this code?
...d = 3), ncol
= 1),
matrix(rnorm(100, mean = 50, sd = 3), ncol = 1))
#Generate Customer List
customerlist <- cbind(1:10000,matrix(rnorm(10000, mean = -60, sd =
20), ncol = 1),
matrix(rnorm(10000, mean = 50, sd = 10), ncol = 1))
#Output file
outfile <- "c:\\output.txt"
outfilecolnames <- c("rank","storeid","custid","distance")
write.table(t(outfilecolnames), file = outfile, append=TRUE,
sep=",",row.names=FALSE, col.names=FALSE)
#Trade Area Size
TAsize <- c(100)
custlatlon <- customerlist[, 2:3]
for(i in 1:length(TAs...