-#' io = generateSampleIO(fargs$n, fargs$p, fargs$β, fargs$b, fargs$link)
-#' fargs$X = io$X
-#' fargs$Y = io$Y
-#' fargs$K = ncol(fargs$β)
-#' fargs$link = fargs$link
-#' fargs$M = computeMoments(io$X,io$Y)
+#' io <- generateSampleIO(fargs$n, fargs$p, fargs$β, fargs$b, fargs$link)
+#' fargs$X <- io$X
+#' fargs$Y <- io$Y
+#' fargs$K <- ncol(fargs$β)
+#' fargs$link <- fargs$link
+#' fargs$M <- computeMoments(io$X,io$Y)