if-else 문에 대해 data.frame에 결과를 저장하십시오.

Question

나는 (나중에 shiny r을 사용하기 위해 사용될) 함수를 만들려고합니다. 순간에 내 기능에서 결과를 데이터 프레임에 저장하지 못했습니다.

f_expccm <- function(n,h,m,rr,dr,mc,ac) { 


for(i in 1:6) { 

eccm[i]<- vector(length=1) 

if(i==1){ 

    eccm[i] <- -ac 
print(eccm[i]) 


} 
else{ 


x <- h*n 
nm <- x*m 
pc <- nm-mc 
crr <- 1*rr^(i-1) 
cdr <- 1/(1+dr)^(i-1) 

    eccm[i] <- pc*cdr*crr 
print(eccm[i]) 



} 

output <- cbind(eccm[i]) 
} 

} 
    output 
    qt <- f_expccm(10,250,.4,0.95,0.10,10,500) 

나는 다음과 같은 항목과 출력 data.frame 얻을 것으로 기대하고있다 : 그러나

[1] -500 
    [1] 855 
    [1] 738.4091 
    [1] 637.7169 
    [1] 550.7555 
    [1] 475.6525 

가 내가 추가하는 경우이받을 만 할 생각을 지금까지 나는 다음과 같은 코드를 만들었습니다 인쇄 기능 (내 지식은 결과를 저장하지 않습니다 ...) :

어떤 도움을 크게 주시면 감사하겠습니다! 감사합니다.

Answer 1

찾고 계신가요?

f_expccm <- function(n,h,m,rr,dr,mc,ac) { 

    eccm <- vector(length=6) 
    eccm[1] <- -ac 

    for(i in 2:6) { 
    x <- h*n 
    nm <- x*m 
    pc <- nm-mc 
    crr <- 1*rr^(i-1) 
    cdr <- 1/(1+dr)^(i-1) 

    eccm[i] <- pc*cdr*crr 
    } 
    df <- data.frame(eccm) 
    return(df) 
} 

> qt <- f_expccm(10,250,.4,0.95,0.10,10,500) 
> qt 
    eccm 
1 -500.0000 
2 855.0000 
3 738.4091 
4 637.7169 
5 550.7555 
6 475.6525