1 | imputeK(y, v, w, mu)
|
y |
|
v |
|
w |
|
mu |
1 2 3 4 5 6 7 8 9 10 11 12 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function( y, v, w, mu )
{
n <- nrow( y ); m <- ncol( y )
vsig<- kronecker( v, w ); vy <- as.vector( t( y ) ); vmu <- as.vector( t( mu ) )
vim <- imputeY( vy, vsig, vmu )
return( list( vim = matrix( vim$yimp, n, m, byrow = TRUE ), vvv = vim$vimp ) )
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.