Error in `La.svd(W)`: a dimension is zero

myplot <- fMRIscrub:::plot.scrub_projection_multi(psx, title = "My Plot")
#   matrix(rnorm(9000), nrow=30), "fusedPCA", 1, center=FALSE, PESEL=FALSE, kurt_quantile=.8,
#   full_PCA = TRUE, cutoff=5, verbose=TRUE
matrix(rnorm(10000), nrow=100) + 100, nuisance=fMRItools::dct_bases(100, 2),
Dat2, projection="PCA", nuisance=cbind(1, fMRItools::dct_bases(nrow(Dat2), 12)),

fMRIscrub:::plot.scrub_projection_multi(psx) # expect_warning w/ fusedPCA?
fMRIscrub:::plot.scrub_projection_multi(psx, title = "My Plot")
Dat2[,Dat2[1,]!=0], "PCA", 1, center=FALSE, PESEL=FALSE, kurt_quantile=.8,
full_PCA = TRUE, cutoff=5, ICA_method="R", verbose=TRUE
#   Dat2, projection="fusedPCA", nuisance=cbind(1, fMRItools::dct_bases(nrow(Dat2), 12)),
#   comps_mean_dt=2, comps_var_dt=2, get_dirs=TRUE, get_outliers=FALSE
dv <- DVARS(scale(Dat2[,Dat2[1,]!=0]), normalize=FALSE, cutoff_DPD=3, verbose=TRUE)
# test_that("ciftiTools-related functions work", {
#     skip("Connectome Workbench is not available.")
#     skip("Could not find the CIFTI file.")
#   psx <- pscrub(ciftiTools::read_xifti(cii_fname, brainstructures="left"), ICA_method="R")
#   dv <- DVARS(ciftiTools::read_xifti(cii_fname, brainstructures="right"))
#   dv <- scrub_xifti(cii_fname, "DVARS", c("left", "right"))