Lander chp 8 sect 8.4 do.call function