powered by
Function which unscale only the diagonal component of a matrix
unscale.matrix.diag(M, binf, bsup)
the matrix
the lower bound
the upper bound
the normalized diagonal
# NOT RUN { X <- diag(3)*runif(3) Y <-unscale.matrix.diag(X,rep(10,3),rep(15,3)) print(Y) # }
Run the code above in your browser using DataLab