scaling covariates breaks model selection

[ianfiske]

library(unmarked)
data(frogs)
M <- nrow(pfer.bin)
J <- ncol(pfer.bin)
SiteCovs <- siteCovs <- data.frame(sitevar1 = rnorm(M))
ObsCovs <- obsCovs <- data.frame(obsvar1 = rnorm(M*J))
siteCovs$sitevar1 <- scale(siteCovs$sitevar1)
obsCovs$obsvar1 <- scale(obsCovs$obsvar1)
pferUMF1 <- unmarkedFrameOccu(y=pfer.bin,siteCovs = siteCovs,obsCovs = obsCovs)
pferUMF2 <- unmarkedFrameOccu(y=pfer.bin,siteCovs = SiteCovs,obsCovs = ObsCovs)
obsCovs(pferUMF2) <- scale(obsCovs(pferUMF2))
summary(pferUMF1)
summary(pferUMF2)
identical(pferUMF1,pferUMF2)

[ianfiske]

I can't reproduce this bug.