Update fcs.R

Avoid "apply(mat, 2, tform) : dim(X) must have a positive length" problem.