Dear all,
seasons greetings,
I had made a list of elements that I want to have
# list generator
Agent<-list(id=NA, position=list(x=NA,y=NA))
# Make list of Agents
AgentList<-rep(list(CRAgent),5)
# Initialization. Is it shorter to do that with a lapply statement?
for (i in c(1:length(CRAgentList))){
AgentList[[i]]$id=i
}
The created struct looks like> str(AgentList)
List of 5
$ :List of 3
..$ id : int 1
..$ position :List of 2
.. ..$ x: logi NA
.. ..$ y: logi NA
..$ CRAgentPowerReceived: num [1:10, 1:10] 0 0 0 0 0 0 0 0 0 0 ...
$ :List of 3
..$ id : int 2
..$ position :List of 2
.. ..$ x: logi NA
.. ..$ y: logi NA
..$ CRAgentPowerReceived: num [1:10, 1:10] 0 0 0 0 0 0 0 0 0 0 ...
What I want to do is to initialize every struct with an id number. The first
element I want to have the id number 1 the second id number 2 and so on.....
I have made that with a loop
for (i in c(1:length(CRAgentList))){
AgentList[[i]]$id=i
}
but I was wondering If I can have also the same done with a lapply statement ( I
prefer lapply so to convert it easily to mclapply).
After that I was also thinking to initialize the ...position$x coordinates and
position$y
bu assigning to every sub list the corresponding element of
CRX <- round(runif(nCR, min=0, max=nrow(r))) # uniform distribute numbers
between 0 and nrow(r)
CRY <- round(runif(nCR, min=0, max=nrow(r))) # uniform distribute numbers
between 0 and nrow(r)
so every agent should get
$id=number in the list
$position$x= CRX[number in the list]
$position$y= CRY[number in the list]
Is it possible to do these three initializations with one lapply statement?
I would like to thank you in advance for your help
B.R
Alex
[[alternative HTML version deleted]]
