Mengubah e(b) kalau perlu menghitung Rao's score test

webuse school
biprobit (private = vote years loginc logptax) ///
              (vote = years loginc logptax)
scoregof   //3.35 p=0.9489

capture program drop alterations
program define alterations, eclass
  qui biprobit (private = vote years loginc logptax)///
                      (vote = years loginc logptax)
  matrix A = e(b)
  matrix A[1,1] = -A[1,1]
  ereturn repost b = A
end
alterations
scoregof