こちらで連立方程式の解を求めたい パッケージ"rootSolve" の中の uniroot.all() で解を出す この uniroot.all() はパッケージ"base" の中の uniroot() 関数を使っている uniroot()の中身の一部 val <- .Internal(zeroin2(function(arg) f(arg, ...), lower,…