rTest with subplots