I was wondering if any others agree that the Williams test implemented in the SSC program cortesti might have a coding error?

Code:
  local detR=(1-`rxy'^2-`ryv'^2-`rxv'^2+2*`rxy'*`rxv'*`ryv')
  local diffr=`rxy'-`ryv'
  local tnum=(`n'-1)*(1+`rxv')
  local tden=2*((`n'-1)/(`n'-3))*`detR'+0.5*(`rxy'+`ryv')*(((1-`rxv')^3))
  local t=`diffr'*sqrt(`tnum'/`tden')
Maybe the fourth line should be:

Code:
  local detR=(1-`rxy'^2-`ryv'^2-`rxv'^2+2*`rxy'*`rxv'*`ryv')
  local diffr=`rxy'-`ryv'
  local tnum=(`n'-1)*(1+`rxv')
  local tden=2*((`n'-1)/(`n'-3))*`detR'+(0.5*(`rxy'+`ryv'))2*(((1-`rxv')^3))
  local t=`diffr'*sqrt(`tnum'/`tden')
Some online references about the formula are:

https://cran.r-project.org/web/packages/cocor/cocor.pdf

pages 14,15