apply the centred logratio transformation:
cMajor <- log(Major) -
       rowMeans(log(Major)) %*% matrix(1,1,ncol(Major))