Create power.comptest.r