R-INLA

  1. Håvard Rue
  2. R-INLA

Commits

Håvard Rue  committed d7befeb Merge

Merge small-fixes into default

Comments (0)

Files changed (1)

File rinla/R/collect.results.R Modified

View file
  • Ignore whitespace
  • Hide word diff 
             else
                 model.random[i] = inla.trim(readLines(modelname, n=1L))
         }
-        
 
         summary.random = list()
         summary.random[[n.random]] = NA
             file= paste(results.dir, .Platform$file.sep, random[i], sep="")
             dir.random = dir(file)
 
-            if (length(dir.random) > 4L) {
+            if (length(dir.random) > 5L) {
                 dd = matrix(inla.read.binary.file(file=paste(file, .Platform$file.sep,"summary.dat", sep="")), ncol=3L, byrow=TRUE)
                 col.nam = c("ID","mean","sd")
                 ##read quantiles if existing