It doesn't occur when I run the analyses with 100 iterations, but when I use 1000 or more the problem does occur.Error in if (RL1$resmatrix[1] == "Error") { :
missing value where TRUE/FALSE needed
In addition: Warning message:
In par(new = TRUE) : calling par(new=TRUE) with no plot
Perhaps good to know: I run the sixway function from another function (because I have many models and it saves time):
( for: model, I fill in the model name)
Code: Select all
printSixway <- function(model, name = "model", width = 500, height = 500, ...) {
modName <- paste("sixway_","_",sep = name)
modName2 <- paste("trajectories_", "", sep = name)
modName3 <- paste("","_", sep = name)
trajectories(model)
#dev.print(png,paste(modName2,".png"), width = width, height = height)
for (i in colnames(model["chains"])) {
sixway(model["chains"][,i],i, name = paste(modName3, "", sep=i))
#dev.print(png,paste(modName,".png",sep = i),
#width = width, height = height)
}
}