fix Issue #27 with residuals() method

Author: LucasKook

R/methods.R

@@ -479,7 +479,8 @@ fitted.FDboost <- function(object, toFDboost = TRUE, ...) {
 residuals.FDboost <- function(object, ...){
 
   if(!any(class(object)=="FDboostLong")){
-    resid <- matrix(object$resid(), nrow=object$ydim[1])
+    resid <- matrix(object$resid())
+    resid <- matrix(resid, nrow = NROW(resid))
     resid[is.na(object$response)] <- NA 
   }else{
     resid <- object$resid()