R-code incomplete