R/compare_beta.R

In CorReg: Linear Regression Based on Linear Structure Between Variables

# ' compare signs of the coefficients in two vectors
# ' @export
# ' @param truebeta first vector
# ' @param hatbeta second vector
# ' @param taux boolean. Computes the ratio of each selection statistic or not.

compare_beta<-function(truebeta=truebeta,hatbeta=hatbeta,taux=FALSE){
   resloc=compare_zero(trueA=truebeta,Aalgo=hatbeta,taux=FALSE)
   resloc=c(resloc,compare_sign(trueA=truebeta,Aalgo=hatbeta))
   resloc$biais=sum((truebeta-hatbeta)^2)
   return(resloc)  
}