pnames in home_away3() #241
Description
library("hyper2")
#> Loading required package: cubature
M2 <- matrix(c(NA,19+2i,17,11+2i,16+5i,NA,12+4i,12+6i,12+2i,19+10i,
NA,12+4i,11+2i,16+2i,11+7i,NA),4,4)
teams <- LETTERS[1:4]
dimnames(M2) <- list("@home" = teams,"@away"=teams)
home_away(M2)
#> log(A^4 * (A + B + home)^-42 * (A + C + home)^-31 * (A + D + home)^-26
#> * (A + home)^39 * B^15 * (B + C + home)^-45 * (B + D + home)^-36 * (B +
#> home)^54 * C^16 * (C + D + home)^-34 * (C + home)^40 * D^11 * (D +
#> home)^35)
# home_away3(M2,lambda=1.2) # works but takes too long (~3s)
H <- home_away3(M2[1:3,1:3],lambda=1.2)
pnames(H)
#> [1] "A" "B" "C" "lambda"Above we see that the pnames of H include lambda, and it should not.