sw <- sqrt(((n-1)*hvar1+(m-1)*hvar2))/n+m-2) Error: unexpected ')' in "sw <- sqrt(((n-1)*hvar1+(m-1)*hvar2))/n+m-2)"

这个错误是由于代码中有一个多余的右括号导致的。正确的代码应该是：

sw <- sqrt(((n-1)*hvar1+(m-1)*hvar2)/(n+m-2))

在这里，我将右括号移到了除号的后面，这样就可以正确计算出sw的值。