Displaying 1 result from an estimated 1 matches for "2000income".
2001 Nov 27
3
Equations as arguments to functions
...work (shown below).
rm(list=ls())
load("datasets/citycodes")
increments _ seq(5000,100000,by=5000)
makeindex <- function(Y,eq) {
losers _ 0; levels_0
index _ 0; location _ 0; cutoff _0; totalapt_0; houses_0
for (C in city[1:2]) {
counter _ 0
if (file.exists(paste("datasets/2000income/",C,sep=""))) {
load(paste("datasets/2000income/",C,sep=""))
counter _ counter+1}
if (file.exists(paste("datasets/rents/2000",toupper(C),sep=""))) {
load(paste("datasets/rents/2000",toupper(C),sep=""))
counter...