New testing code for the R-subgraph