[Rsiena-help] Error in sienaprint

[Rönkkö Mikko]

Hi

I have a symmetric one mode network in an object with class siena. When I try to print this object, I get the following error:

Error in mymat[2, 2] <- c(mymat[2, 2], ", symmetric") : 
  number of items to replace is not a multiple of replacement length

Traceback shows that the error happens on line 80 in sienaprint.r. The line contains the following:

			mymat[2,2] <- c(mymat[2,2],", symmetric")

It seems that instead of the generic concatenation operator, the string concatenation operation should be used:

			mymat[2,2] <- paste(mymat[2,2],", symmetric",sep="")

When I change the code this way, it runs correctly and produces a printout that looks ok.

Mikko