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
})

Try the aroma.core package in your browser

Any scripts or data that you put into this service are public.

aroma.core documentation built on June 25, 2024, 1:15 a.m.