CGGP_internal_calcMSEde: Calculate MSE over blocks

Description Usage Arguments Value Examples

View source: R/CGGP_append_fs.R

Description

Delta of adding block is product over i=1..d of IMSE(i,j-1) - IMSE(i,j)

Usage

1
CGGP_internal_calcMSEde(valsinds, MSE_MAP)

Arguments

valsinds

Block levels to calculate MSEs for

MSE_MAP

Matrix of MSE values

Value

All MSE values

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
SG <- CGGPcreate(d=3, batchsize=100)
y <- apply(SG$design, 1, function(x){x[1]+x[2]^2})
SG <- CGGPfit(SG, Y=y)
MSE_MAP <- outer(1:SG$d, 1:8, 
     Vectorize(function(dimlcv, lcv1) {
        CGGP_internal_calcMSE(SG$xb[1:SG$sizest[dimlcv]],
        theta=SG$thetaMAP[(dimlcv-1)*SG$numpara+1:SG$numpara],
        CorrMat=SG$CorrMat)
 }))
CGGP_internal_calcMSEde(SG$po[1:SG$poCOUNT, ], MSE_MAP)

CGGP documentation built on May 8, 2021, 5:06 p.m.