R/backtransformGenotypeCone.matrix.R

setMethodS3("backtransformGenotypeCone", "matrix", function(y, fit, ...) {
  # x <- t(t(fit$Winv) %*% (t(y) - fit$origin))
  x <- t(t(y) - fit$origin) %*% fit$Winv
  attr(x, "fit") <- fit
  x
})
HenrikBengtsson/aroma.core documentation built on Feb. 20, 2024, 9:17 p.m.