R/Gproduct.r

Defines functions Gproduct

Documented in Gproduct

##################
#### Gproduct ####
##################

 ## Description:
 ##     internal function in dbpls.
 ##         - calculate F for each iteration
 ##
 
 
Gproduct <- function(f,Dw,G0)
{
   f2 <- as.numeric(t(f)%*%Dw%*%f)
   g0 <- (G0%*%Dw%*%f)/f2
   g00 <- as.numeric((t(g0)%*%Dw%*%f)/f2)
   h0 <- g0-1/2*(g00*f)
   G1 <- G0-f%*%t(h0)-h0%*%t(f)
   return(G1)
}
 

Try the dbstats package in your browser

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

dbstats documentation built on Dec. 7, 2022, 5:14 p.m.