Modele uyduktan sonra, tahmin edilen hataları neden onlar için anlamlı olan standart teknikleri kullanarak diğerleriyle karşılaştırmak için bir değişken olarak kullanmıyorsunuz? Sürekli değişken olma avantajına sahiptir, böylece küçük farkları bile görebilirsiniz. Örneğin, insanlar her ikisi de bire yuvarlansa bile, beklenen 1.4 ve 0.6 hata sayısı arasındaki farkı anlayacaklardır.
Öngörülen değerin iki değişkene nasıl bağlı olduğuna dair bir örnek için, iki ekseni ve renk ve konturları öngörülen kusurları göstermek için kontur zaman çizelgesi v. Karmaşıklığı yapabilirsiniz; ve gerçek veri noktalarını üst üste getirin.
Aşağıdaki çizimde biraz parlatma ve efsane gerekiyor, ancak bir başlangıç noktası olabilir.
Bir alternatif, geleneksel Gauss yanıt regresyonundan daha tanıdık olan eklenen değişken grafik veya kısmi regresyon grafiğidir. Bunlar araba kütüphanesinde uygulanır. Etkili bir şekilde, açıklayıcı değişkenlerin geri kalanı hem yanıt hem de açıklayıcı değişkenlerin katkısı kaldırıldıktan sonra, açıklayıcı değişkenlerden biri ve kalan açıklayıcı değişkenlerden biri arasındaki ilişkiyi gösterin. Deneyimlerime göre, istatistiksel olmayan kitlelerin çoğu bunu takdir etmeyi biraz zor buluyor (tabii ki benim zayıf açıklamalarımla olabilir).
#--------------------------------------------------------------------
# Simulate some data
n<-200
time <- rexp(n,.01)
complexity <- sample(1:5, n, prob=c(.1,.25,.35,.2,.1), replace=TRUE)
trueMod <- exp(-1 + time*.005 + complexity*.1 + complexity^2*.05)
defects <- rpois(n, trueMod)
cbind(trueMod, defects)
#----------------------------------------------------------------------
# Fit model
model <- glm(defects~time + poly(complexity,2), family=poisson)
# all sorts of diagnostic checks should be done here - not shown
#---------------------------------------------------------------------
# Two variables at once in a contour plot
# create grid
gridded <- data.frame(
time=seq(from=0, to=max(time)*1.1, length.out=100),
complexity=seq(from=0, to=max(complexity)*1.1, length.out=100))
# create predicted values (on the original scale)
yhat <- predict(model, newdata=expand.grid(gridded), type="response")
# draw plot
image(gridded$time, gridded$complexity, matrix(yhat,nrow=100, byrow=FALSE),
xlab="Time", ylab="Complexity", main="Predicted average number of defects shown as colour and contours\n(actual data shown as circles)")
contour(gridded$time, gridded$complexity, matrix(yhat,nrow=100, byrow=FALSE), add=TRUE, levels=c(1,2,4,8,15,20,30,40,50,60,70,80,100))
# Add the original data
symbols(time, complexity, circles=sqrt(defects), add=T, inches=.5)
#--------------------------------------------------------------------
# added variable plots
library(car)
avPlots(model, layout=c(1,3))