행렬의 각 값을 해당 행렬의 각 열의 합계를 제곱근으로 나누는 방법은 무엇입니까?

Question

원래의 행렬에있는 해당 열의 원래 값의 제곱의 합계의 제곱근으로 각 원래 값을 나눔으로써 어떻게 얻을 수 있습니까?

data(longley) 
X <- as.matrix(longley[,-7]) 

X/sqrt(colSums(X^2)) 

잘못된 결과 얻기.

Answer 1

이 방법이 효과가 있습니까?

data(longley) 
X <- as.matrix(longley[,-7]) 

X <- apply(X, 2 , function(x) x/sqrt(sum(x^2))) 

Answer 2

이 시도 :

t(t(X)/sqrt(colSums(X^2))) 

벤치 마크 :

library(microbenchmark) 
microbenchmark(t(t(X)/sqrt(colSums(X^2))), 
       apply(X, 2 , function(x) x/sqrt(sum(x^2)))) 
# Unit: microseconds 
#          expr  min  lq median  uq  max neval 
# t(t(X)/sqrt(colSums(X^2)))     28.783 33.1305 34.9455 40.5640 68.147 100 
# apply(X, 2, function(x) x/sqrt(sum(x^2))) 100.307 105.1940 106.9975 108.1075 193.015 100