more work on basic.R