如何將函數的返回值轉換爲R中的數據框？

Question

考慮下面的代碼和它的回報：

my_func<- function(t=4,n=100,m=0.009){ 
    AA<- AB<- BB<- numeric(length = t+1) 

    AA[1]<- rbinom(1,n,1-m) 
    AB[1]<- BB[1]<- 0 

    for(step in 1:t){ 
    AB[step+1]<- rbinom(1,AA[step],1-m) 
    BB[step+1]<- rbinom(1,AB[step],1-m) 
    AA[step+1]<- rbinom(1,BB[step],1-m) 
    } 
    out<- cbind(AA,AB,BB) 
    return(out) 
} 

my_func() 

    AA AB BB 
[1,] 99 0 0 
[2,] 0 99 0 
[3,] 0 0 99 
[4,] 98 0 0 
[5,] 0 96 0 

我希望能夠回報轉換成數據幀，這樣我可以使用在其他功能生成的輸出的部分。如何將其轉換爲數據框？

在此先感謝。

Answer 1

只需使用as.data.frame(...)如下：

my_func<- function(t=4,n=100,m=0.009){ 
    AA<- AB<- BB<- numeric(length = t+1) 

    AA[1]<- rbinom(1,n,1-m) 
    AB[1]<- BB[1]<- 0 

    for(step in 1:t){ 
    AB[step+1]<- rbinom(1,AA[step],1-m) 
    BB[step+1]<- rbinom(1,AB[step],1-m) 
    AA[step+1]<- rbinom(1,BB[step],1-m) 
    } 
    out<- cbind(AA,AB,BB) 
    return(as.data.frame(out)) 
} 

> my_func() 
    AA AB BB 
1 99 0 0 
2 0 99 0 
3 0 0 99 
4 98 0 0 
5 0 96 0 

> class(my_func()) 
[1] "data.frame"