optRF to fit test.R