search for: urb_transport_modeling

...do this in a more simplified code than what i am doing. I have tried a couple of approaches but cannot get it to work correctly. So the initial (bulky) code is: #Bin 1 #------- #Loads bin data frame from csv files with acres and TAZ data Bin1_main <- read.csv(file="I:/Research/Samba/urb_transport_modeling/LUSDR/Workspace/BizLandPrice/data/Bin_lookup_values/Bin1_lookup.csv",head=FALSE); #Separates Acres data from main data and converts acres to square feet Bin1_Acres=Bin1_main[[1]]*43560 #Separates TAZ data from main data Bin1_TAZ=Bin1_main[[2]] #Separates TAZ data from main data and convert...

...as i have seen it done but cant seem to reproduce it in my own code. Hope my question is clear and i hope someone can offer some guidance. Cheers, JR for (i in 1:10) { #------- #Loads bin data frame from csv files with acres and TAZ data Bin$i_main <- read.csv(file="I:/Research/Samba/urb_transport_modeling/LUSDR/Workspace/BizLandPrice/data/Bin_lookup_values/Bin$i_lookup.csv",head=FALSE); #Separates Acres data from main data and converts acres to square feet Bin$i_Acres=Bin$i_main[[1]]*43560 #Separates TAZ data from main data Bin$i_TAZ=Bin$i_main[[2]] #Separates TAZ data from main data and co...

...n outside of the function. Hope you can help Cheers, JR #Function to create hypothetical numbers for process testing Testdata=function(TAZ_VAC_ACRES,Loc_Mod_TAZ,Dev_Size,TAZDetermine,Dev_Size){ #Loads TAZ and corresponding vacant acres data TAZ_VAC_ACRES= read.csv(file="I:/Research/Samba/urb_transport_modeling/LUSDR/Workspace/BizLandPrice/data/TAZ_VAC_ACRES.csv",header=TRUE); #Test Location Choice Model selected TAZ Loc_Mod_TAZ = 120 #Create test Development Dev_Size=58 #Determines vacant acres by TAZ TAZDetermine=TAZ_VAC_ACRES[TAZ_VAC_ACRES$TAZ==Loc_Mod_TAZ,2] #Displays number of vacant acre...