어떻게 수평 출력 대신 수직 출력을 할 수 있습니까?

Question

특정 함수의 가로 출력을 세로 출력으로 만들려고하고 있는데 "cat"함수로 알아 내려고했지만 그렇게 할 방법을 찾지 못했습니다.

3.576 2.076 1.576 1.326 1.176 1.076 1.004571 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

그러나, 나는이를 조작하여 수직 방식이 출력을 해야할지 모르겠다 :

context <- function (a,b,c) 
{ 
U=matrix(0, nrow = c, ncol = c) 
t = 0.4 
m = 0.2 
for (i in 1:c) 
{ 
U[i] = t*a + b/i - 0.224 
} 
cat(U) 
} 
context(2,3,7) 

내가 얻을 출력을 같은입니다 : 내가 걱정이 함수는이 다음과 같은 것이있다 기능 자체. 이 문제에 대한 도움을 얻을 수 있다면 크게 감사하겠습니다.

미리 감사드립니다.

Answer 1

나는 왜 모든 0을 만들지 이해하지 못합니다.

아마 매트릭스를 반환하고 싶습니까?

context <- function (a,b,c) 
{ 
    t = 0.4 
    m = 0.2 
    U = t*a + b/seq_len(c) - 0.224 
    as.matrix(U) 
} 

context(2,3,7) 

#   [,1] 
#[1,] 3.576000 
#[2,] 2.076000 
#[3,] 1.576000 
#[4,] 1.326000 
#[5,] 1.176000 
#[6,] 1.076000 
#[7,] 1.004571