[R] Error .. missing value where TRUE/FALSE needed

[Nicholas Crosbie]

Can any explain the following error:

Error in if ((seedCount <= seedNumber) && (valueDiff >
sup)) { : 
  missing value where TRUE/FALSE needed

which I get upon running this script:

seedNumber <- 10
seeds <-  array(dim = seedNumber)
seedCount <- 1

maxValue <- 100
sup <- maxValue / 2

fcsPar <- array(as.integer(rnorm(100, 50, 10)))

while (seedCount <= seedNumber) {
  for(k in 1:100) {
    valueDiff <- abs(fcsPar[k] - fcsPar[k+1])
      if((seedCount <= seedNumber) && (valueDiff >
sup)) {    #error
        seeds[seedCount] <- fcsPar[k]
        seedCount <- seedCount + 1
       } 
     }
  sup <- sup / 2
}


many thanks.




      Make the switch to the world's best email. Get the new Yahoo!7 Mail now. www.yahoo7.com.au/worldsbestemail