Odp: For loops in R

Hi

Definitely not

from first I get

gBest<-floor(runif(popsize,min=1,max=top))

Error in runif(popsize, min = 1, max = top) : object 'popsize' not found

and from second

for (i in 1:popsize) { 

+   for (j in 1:maxvar) {
+    gBest<-sample(top,size=1) 
+    velocity[i,j]<<-.4* velocity[i,j] + 1 * runif(1) * (pbestsVar[i,j] -
+ popVar[i,j]) + 1 * runif(1) * (archiveVar[gBest,j] - popVar[i,j])
+    #velocity[i,j]<-.4* velocity[i,j] + 1 * .3722 * (pbestsVar[i,j] -
+ popVar[i,j]) + 1 * .3722 * (archiveVar[3,j] - popVar[i,j])
Error: unexpected ')' in:
"   #velocity[i,j]<-.4* velocity[i,j] + 1 * .3722 * (pbestsVar[i,j] -
popVar[i,j])"

If you by chance have all data necessary for those codes not to give those 
stupid errors you could transfer their output to different objects and 
check those objects if they are equivalent.

?all.equal

Regards
Petr


r-help-bounces at r-project.org napsal dne 17.01.2010 08:17:16:

Hello.

I've just started using R and am trying to figure out if the two codes
snippets below have the same output

gBest<-floor(runif(popsize,min=1,max=top))
velocity[i,j]<<-.4* velocity[i,j] + 1 * runif(1) * (pbestsVar[i,j] -
popVar[i,j]) + 1 * runif(1) * (archiveVar[gBest,j] - popVar[i,j])

and 

for (i in 1:popsize) { 
      for (j in 1:maxvar) {
         gBest<-sample(top,size=1) 
         velocity[i,j]<<-.4* velocity[i,j] + 1 * runif(1) * 

(pbestsVar[i,j] -

popVar[i,j]) + 1 * runif(1) * (archiveVar[gBest,j] - popVar[i,j])
         #velocity[i,j]<-.4* velocity[i,j] + 1 * .3722 * (pbestsVar[i,j] 

-

popVar[i,j]) + 1 * .3722 * (archiveVar[3,j] - popVar[i,j])
      }

many thanks


-- 
View this message in context: 

http://n4.nabble.com/For-loops-in-R-tp1015933p1015933.html

Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide 

http://www.R-project.org/posting-guide.html

and provide commented, minimal, self-contained, reproducible code.