tuples $controlVariables
forvalues i = 1/`ntuples' {
        reg $dependentVariable $independentVariable `tuple`i''
        replace bOfIndX = _b[$independentVariable] in `i'
        replace seOfIndX = _se[$independentVariable] in `i'
        replace tOfIndX = bOfIndX / seOfIndX in `i'
        replace degreeOfFreedom = e(df_r) in `i'       
        replace tValue = invttail(degreeOfFreedom, $significance) in `i'
    replace rSq = e(r2) in `i'
        replace controlVariableSet = "`tuple`i''" in `i'
}

preserve
        replace tOfIndX = abs(tOfIndX)
        replace tValue = abs(tValue)
        keep if tOfIndX > tValue
        gen controlVariableNumbers = wordcount(controlVariableSet) if controlVariableSet != ""
        sort controlVariableNumbers rSq
        keep if rSq != .
        list controlVariableSet tOfIndX tValue rSq
restore