fdata <- list() if (all(dim(fdata) == 1))