sgcca with ncomp as a vector

[Kim-Anh Le Cao]

Need a patch to put a mode = 'numeric'

Example from FR

ncomp [1] 2 2 is.vector(ncomp) [1] TRUE !is.vector(ncomp) [1] FALSE !is.vector(ncomp,mode="double") [1] TRUE !is.vector(c(2,2),mode="double") [1] FALSE !is.vector(ncomp,mode="numeric") [1] FALSE !is.vector(c(2,2),mode="numeric") [1] FALSE

[Florian Rohart]

done. see pull request #103