From 913c3e5ea403606e513bb888c195bdc7a3e0940a Mon Sep 17 00:00:00 2001 From: Bouhaddani-2 Date: Tue, 30 Jul 2019 15:28:33 +0200 Subject: [PATCH] fixed typo in T_Yosc --- R/OmicsPLS_o2m.R | 5 +++-- tests/testthat/Rplots.pdf | Bin 4262 -> 4262 bytes 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/R/OmicsPLS_o2m.R b/R/OmicsPLS_o2m.R index 3f7f775..73eff52 100644 --- 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 index 684d1ae4c54eb715c5f0eb1d97a0ef1c62ba1fcf..1de065e0f1ffb222042bd53a9467136ddb02363e 100644 GIT binary patch delta 23 bcmZ3cxJ+?^HH(pjf#F1Z2{64e+FJksP~`?k delta 23 bcmZ3cxJ+?^HH)F8iRnap2{64e+FJksQF{hg