fixed R script: option H6 was ignored