Saya mencoba menjalankan transformasi boxcox dengan kode berikut:
urban1 <- subset(ski,urban <= 4,na.rm=TRUE)
ski$gender <- as.numeric((as.character(ski$gender)),na.rm=TRUE)
urban1 <- as.numeric((as.character(urban1)))
x <- (ski$gender*urban1)
y <- ski$EPSI.
bc <- boxcox(y ~ x)
(trans <- bc$x[which.max(bc$y)])
model3 <- lm(y ~ x)
model3new <- lm(y^trans ~ x)
ski$EPSI. <- ski$EPSI. + 1
Tapi saya terus mendapatkan kesalahan ini:
Kesalahan dalam lm.fit(x,y,offset = offset, singular.ok = singular.ok, ...) : 0 (non-NA) case Panggilan: ... eval -> eval -> boxcar -> boxcar. rumus -> lm -> lm.fit Eksekusi dihentikan
Terima kasih sebelumnya!