It seems the crux of the problem is:
#Heres my problem...my attempt below is to build a vector of
length-"candslength" of all of the
#"TAZDetermine_FEET" values that are less than or equal to Dev_size.
If you do:
TAZDetermine_FEET[ TAZDetermine_FEET <= Dev_size ]
then you will get the vector of values that you describe (assuming
I understand properly). If you need that to be some other length
than what it actually is, then perhaps 'rep' can be of use.
Patrick Burns
patrick at burns-stat.com
+44 (0)20 8525 0696
http://www.burns-stat.com
(home of S Poetry and "A Guide for the Unwilling S User")
PDXRugger wrote:> Good day all,
> I am having seom trouble building a simple vector. Below my sample
code
> shows what ime trying to do and i have pointed out where the issue is.
What
> happens not is that a single "TAZDetermine_FEET" is selected by i
need
> multiple values, as many as there are "cands". I am thinking
that this
> should occur within the for loop and add a "TAZDetermine_FEET" to
a new
> vector ("TAZDs") each time the loop goes round but i cant seem to
make it
> work using what i know. Probably simple so sorry and any help will be much
> appreciated, been struggling with this for too long.
>
> Cheers,
> JR
>
> #test location model TAZs
> TAZS=101:108
> #Builds test Vacant TAZ vector
> TAZDEVS=c(125481,174581,556789,14755776,9984275,1324587,12457841,4511475)
>
> #Builds dataframe simulating TAZ_VAC_FEET
> TAZ_VAC_FEET=data.frame(TAZS,TAZDEVS)
>
> #Candidate TAZs from location shoice model
> cands=c(101,102,107,108)
>
> #Create Object of length of cands
> candslength=length(cands)
>
> #Test Location Choice Model selected TAZ
> for(i in i:candslength){
>
> #Renames randomly generated TAZ's object
> Loc_Mod_TAZ=cands[i]
>
> #Create test Development in Sq. Ft.
> Dev_Size=500000
>
> #Determines vacant square feet by TAZ
> TAZDetermine_FEET=TAZ_VAC_FEET[TAZ_VAC_FEET$TAZS==Loc_Mod_TAZ,2]
>
> #Heres my problem...my attempt below is to build a vector of
> length-"candslength" of all of the
> #"TAZDetermine_FEET" values that are less than or equal to
Dev_size.
>
> #heres what i have tried, doesnt get me what i want though
> #is.vector(TAZDs)
> #TAZDs=list(TAZDetermine_FEET)
> #TAZDs=vector(mode = "logical", length = candslength)
>
> }
>