R/Hmat.R

Defines functions Hmat

Documented in Hmat

Hmat <-function(G){

# matrix transformation
  t = nrow(G); sg = colSums(G)
  u = rep(1,t)
  H = solve(t(G)%*%G-sg%o%sg/t)%*%(t(G)-sg%o%u/t)

# output
  H = H

}

Try the extRC package in your browser

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

extRC documentation built on Oct. 23, 2020, 7:07 p.m.