Displaying 1 result from an estimated 1 matches for "stderrr2".
Did you mean:
stderrr1
2005 Nov 07
1
Newbie on functions
...(-2)*sqrt(Q)*cos(theta/3)+m[1]/3
rho1 <- (-2)*sqrt(Q)*cos((theta+2*pi)/3)+m[1]/3
rho2 <- (-2)*sqrt(Q)*cos((theta-2*pi)/3)+m[1]/3
stderrb <- deltamethod( ~(-2)*sqrt(Q)*cos(theta/3)+x1/3,m,cov)
stderrr1 <- deltamethod( ~(-2)*sqrt(Q)*cos((theta+2*pi)/3)+x1/3, m,
cov) stderrr2 <- deltamethod( ~(-2)*sqrt(Q)*cos((theta-2*pi)/3)+x1/3,
m, cov) stderr <- c(stderrb,stderrr1,stderrr2)
results <- c(beta,rho1,rho2,stderr)
results2 <- t(results)
results2
}
When I call the function in an IF statement like
if (Q^3>R^2) results2 <- case1() else print...