https://github.com/cran/KRLS
Tip revision: 9ee4980f0f951956294c84b7f49fe4374e5a432b authored by Jens Hainmueller on 10 July 2017, 12:55:59 UTC
version 1.0-0
version 1.0-0
Tip revision: 9ee4980
multdiag.R
#Function to multiply a square matrix, X, with a diagonal matrix, diag(d)
multdiag <- function(X,d){
R=matrix(NA,nrow=dim(X)[1],ncol=dim(X)[2])
for (i in 1:dim(X)[2]){
R[,i]=X[,i]*d[i]
}
return(R)
} 