2015-10-05 2 views

ответ

3
n <- 3 
m <- 4 
outer(seq_len(n), seq_len(m), "^") 
#  [,1] [,2] [,3] [,4] 
#[1,] 1 1 1 1 
#[2,] 2 4 8 16 
#[3,] 3 9 27 81 
+1

спасибо, я не имел ни малейшего представления о внешней функции. – CnewbieWannabePro

2

Вы также можете использовать sapply:

t(sapply(1:n, `^`, 1:m)) 

#  [,1] [,2] [,3] [,4] 
#[1,] 1 1 1 1 
#[2,] 2 4 8 16 
#[3,] 3 9 27 81 

или даже быстрее:

matrix(1:n, ncol=m, nrow=n)^matrix(1:m, ncol=m, nrow=n, byrow=T) 
#  [,1] [,2] [,3] [,4] 
#[1,] 1 1 1 1 
#[2,] 2 4 8 16 
#[3,] 3 9 27 81 
Смежные вопросы