Get the Full-Data Prior from a MashPrior

Accessor for the fullFit slot (the full-data data-driven prior payload).

Usage

getFullFit(x, ...)

# S4 method for class 'MashPrior'
getFullFit(x, ...)

Arguments

x

A MashPrior object.

...

Unused.

Value

The full-data prior payload, or NULL.

Examples

U <- list(shared = diag(3), singleton = matrix(0.3, 3, 3) + diag(0.7, 3))
mp <- MashPrior(fullFit = list(U = U, w = c(0.5, 0.5)))
getFullFit(mp)
#> $U
#> $U$shared
#>      [,1] [,2] [,3]
#> [1,]    1    0    0
#> [2,]    0    1    0
#> [3,]    0    0    1
#> 
#> $U$singleton
#>      [,1] [,2] [,3]
#> [1,]  1.0  0.3  0.3
#> [2,]  0.3  1.0  0.3
#> [3,]  0.3  0.3  1.0
#> 
#> 
#> $w
#> [1] 0.5 0.5
#>