<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<font face="Courier New, Courier, monospace">Dear all<br>
<br>
I try to program a loop over 5 different networks. Therein I use
"sienaDataCreate". E.g.:<br>
<br>
mydata.basic.model <- list();<br>
<br>
for (i in c(1:5))<br>
{mydata.basic.model[[i]] <- sienaDataCreate(peers[[i]])}<br>
<br>
Where "peers" is defined/specified previously as a list over
networks s.t.<br>
<br>
peers <- list()<br>
<br>
for (i in c(1:5))<br>
{peers[[i]] <- sienaNet(<br>
array( c(peers.data.w1[[i]],
peers.data.w2[[i]]),<br>
dim = c( dim(peers.data.w1[[i]])[1],
dim(peers.data.w2[[i]])[1], 2)))}<br>
<br>
The latter loop works. The former loop does not work. That is,
mydata.basic.model[[1]], for instance, gets "peers[[i]]" as
dependent variable (instead of </font><font face="Courier New,
Courier, monospace">"peers[[1]]"</font><font face="Courier New,
Courier, monospace">. The same for the other networks. <br>
<br>
But if I define the model-data separately for each network, i.e.,
<br>
<br>
</font><font face="Courier New, Courier, monospace">mydata.basic.model[[1]]
<- sienaDataCreate(peers[[1]])<br>
</font><font face="Courier New, Courier, monospace">mydata.basic.model[[2]]
<- sienaDataCreate(peers[[2]]) <br>
<br>
it works.<br>
<br>
What goes wrong?<br>
<br>
Thank you for your efforts.<br>
<br>
Best<br>
Philippe<br>
</font>
</body>
</html>