ex44.s<-function(){
	tmpdf <- importData("../../sdata/resdialb.ssd01")
	motif()
	attach(tmpdf)
	plot(age, mart, xlab="Age of patient", 
                ylab="Martingale residual for null model", xlim=c(9,60), 
		ylim=c(-3,1))
        lines(lowess(age,mart),lty=1,lwd=2)
        title("Plot of martingale residuals for the null model against
		age, superimposed with lowess smoother",cex=0.6)
	detach()
}