powered by
This function creates a doubly centred matrix.
bicenter.wt(X, row.wt = rep(1, nrow(X)), col.wt = rep(1, ncol(X)))
returns a doubly centred matrix
a matrix with n rows and p columns
a vector of positive or null weights of length n
a vector of positive or null weights of length p
Daniel Chessel
w <- matrix(1:6, 3, 2) bicenter.wt(w, c(0.2,0.6,0.2), c(0.3,0.7)) w <- matrix(1:20, 5, 4) sum(bicenter.wt(w, runif(5), runif(4))^2)
Run the code above in your browser using DataLab