I have a question regarding pdshare package of R. In the source code the lines:
beta.ort <- as.vector(c(-cointest@V[2,1], cointest@V[1,1])) alpha.ort