Bug in info of musse

[KYPpa]

Edit of the argnames of musse objects fails like below.

argnames(lik)[1]<-c("l") Error in argnames<-.dtlik(*tmp*, value = c("l", "lambda2", "lambda3", : Wrong argnames length: expected 15, got 12

Then I checked the source and found in "model-musse.R"

make.info.musse <- function(k, phy) { list(name="musse", # canonical name (as in make.) name.pretty="MuSSE", # pretty name for printing ## Parameters: np=as.integer(k * (k + 2)), # number of ODE parameters

The parameters should be composed of k lambda, k mu and k*(k-1) transition rates. Then np=as.integer(k * (k + 1)) seems to be correct.