fixed typo in T_Yosc

selbouhaddani · Jul 30, 2019 · 913c3e5 · 913c3e5
1 parent de6f501
commit 913c3e5
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/OmicsPLS_o2m.R b/R/OmicsPLS_o2m.R
@@ -205,6 +205,7 @@ o2m <- function(X, Y, n, nx, ny, stripped = FALSE,
                   R2Y_XO = R2Y_XO, R2Xhat = R2Xhat, R2Yhat = R2Yhat)
     class(model) <- "o2m"
   }
+  class(model) <- "o2m"
   toc <- proc.time() - tic
   model$flags = c(time = toc[3], 
                   list(n = n, nx = nx, ny = ny, 
@@ -599,7 +600,7 @@ o2m_stripped <- function(X, Y, n, nx, ny) {
   rownames(C) <- rownames(P_Xosc) <- Ynames[[2]]
 
   model <- list(Tt = Tt, U = U, W. = W, C. = C, P_Yosc. = P_Yosc, P_Xosc. = P_Xosc,
-                T_Yosc. = T_Yosc, U_Xosc. = U_Xosc, W_Yosc = W_Yosc, C_Xosc = C_Xosc,
+                T_Yosc = T_Yosc, U_Xosc = U_Xosc, W_Yosc = W_Yosc, C_Xosc = C_Xosc,
                 B_T. = B_T, B_U = B_U, H_TU = H_TU, H_UT = H_UT, 
                 R2X = R2X, R2Y = R2Y, R2Xcorr = R2Xcorr, R2Ycorr = R2Ycorr, 
                 R2Xhat = R2Xhat, R2Yhat = R2Yhat)
@@ -728,7 +729,7 @@ o2m_stripped2 <- function(X, Y, n, nx, ny, tol = 1e-10, max_iterations = 100) {
   rownames(C) <- rownames(P_Xosc) <- Ynames[[2]]
 
   model <- list(Tt = Tt, U = U, W. = W, C. = C, P_Yosc. = P_Yosc, P_Xosc. = P_Xosc,
-                T_Yosc. = T_Yosc, U_Xosc. = U_Xosc, W_Yosc = W_Yosc, C_Xosc = C_Xosc,
+                T_Yosc = T_Yosc, U_Xosc = U_Xosc, W_Yosc = W_Yosc, C_Xosc = C_Xosc,
                 B_T. = B_T, B_U = B_U, H_TU = H_TU, H_UT = H_UT, 
                 R2X = R2X, R2Y = R2Y, R2Xcorr = R2Xcorr, R2Ycorr = R2Ycorr, 
                 R2Xhat = R2Xhat, R2Yhat = R2Yhat)

diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf