R now fit model; output is still not returned