2016-07-14 4 views

答えて

0

あなたがcatを使用する必要が何らかの理由はありますか?あなたはそれなしでこれを達成することができます

f <- 5 
n <- 0 
results <- data.frame(n = n, f = f) 

while(f > 0.001) { 
    n <- n + 1 
    f <- f/n 

    results <- rbind(results, c(n, f)) 
} 

基本的に、あなたはdataframeを開始し、その後、ループのすべての実行のためにそれに行を追加します。

0

ない最も効率的な方法が、動作します:

f <- 5 
f_vector <-f 
n <- 0 
n_vector <- n 
results =data.table(n,f) 
while(f > 0.001) 
{ 
    n <- n + 1 
    n_vector=c(n,n_vector) 
    f <- f/n 
    f_vector=c(f,f_vector) 

    cat(f,n,"\n") 
} 
result=data.table(n_vector,f_vector) 
関連する問題