Yr=Y; Us{1}=Yr*C; U=Us{1}; Fxy=Y-Us{1}*C R Yr <- Y Us <- list() Us[[1]] <- Yr %*% C U <- Us[[1]] Fxy <- Y-(U[[1]] %*% t(C))
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)