Create equiv limits test.r