RGLab/flowCore — pull request #15 by jspidlen (2013-11-14 19:14:21+00:00)
Title: Fixed the evaluation of the Compensated Parameter, the code there was wrong

Fixed the evaluation of the Compensated Parameter, the code there was wrong and went probably unnoticed for some time. The wrong code is
t(solve(spillMat)[parameter,]%*%t(df[,cols]))
The same issue existed in the compensate method (see flowFrame-accessors.R) and it has been fixed by "phd" long time ago. The new code is
tmp <- (df[,cols] %*% solve(spillMat))
colnames(tmp) <- cols
tmp[,parameter]
That is the same as tmp <- t(solve(t(spillMat))%*%t(df[,cols]))
which is essentially what the compensate method is doing.