定義された関数をn回まで繰り返します

Question

私は以下のコードを修正して関数を繰り返すことができますか？最大7回。 replicate(7, func(f))を使用することはできません。なぜなら、私は繰り返し回数を選択するオプションを提供する関数が必要なのです。私は、私が続行したいかどうかを私に尋ねる機能を意味します。

はあなたがいないプログラムで、対話的機能の実行を繰り返す頻度を指定したい場合は、私が正しく理解していればこれは私の機能

func = function(A){ 
id.co1 <- identify(f$speed, f$dist,labels=row.names(f), n = 2, pos = TRUE,plot = TRUE) 
xy <- f[c(id.co1$ind[1],id.co1$ind[2]),] 
lines(xy, col="red", lwd=5) 
lm(dist~speed, xy) 
abline(coef(lm(dist~speed, xy)),col="blue") 
x.co1 <- f$speed[id.co1$ind[1]:id.co1$ind[2]] 
y.co1 <- f$dist[id.co1$ind[1]:id.co1$ind[2]] 
m.co1 <- lm(y.co1 ~ x.co1) 
} 

Answer 1

ある

speed<-cars$speed 
dist<-cars$dist 
level<-c(1:50) 
f<-data.frame(speed,dist,level) 
plot(speed, dist, main="Milage vs. Car Weight", 
    xlab="Weight", ylab="Mileage", pch=18, col="blue") 
text(speed, dist, row.names(f), cex=0.6, pos=4, col="red") 

とします。あなたはreadlineでこれを行うことができます。

私は私がしたいかどうか、私に尋ねる機能を意味する私に繰り返し

# some function 
funcA <- function(){ 
cat("i am funcA\n") 
} 
# some function that interactively repeats funcA a specified amount of times 
doNTimesA <- function() { 
    Ntimes <- readline("number of repeats: ") 
    for (i in 1:Ntimes) funcA() 
} 
doNTimesA() 

の数を選択するためにいくつかのオプションを与える機能を必要としますあなたのための編集を続けるかどうか

funcB <- function(){ 
    while (TRUE) { 
    cat("i am funcB\n") 
    continue <- readline("again? y/n: ") 
    if (tolower(continue)=="n") break 
    } 
    cat("funcB is done") 
} 
funcB() 

します関数の宣言をwhileループにラップして、上の例のように続行するかどうかを尋ねることができます。funcBそれはまた、その出力を保存する場所更新：continue <- readline("again? y/n: ")とチェックあなたがNやnに答えているかどうか：

func <- function(){ 
#initiate an iteration counter and an outputlist 
    counter <- 1 
    output <- list() 
#start an infinite loop 
    while (TRUE) { 
#do your thing  
    id.co1 <- identify(f$speed, f$dist,labels=row.names(f), n = 2, pos = TRUE,plot = TRUE) 
    xy <- f[c(id.co1$ind[1],id.co1$ind[2]),] 
    lines(xy, col="red", lwd=5) 
    lm(dist~speed, xy) 
    abline(coef(lm(dist~speed, xy)),col="blue") 
    x.co1 <- f$speed[id.co1$ind[1]:id.co1$ind[2]] 
    y.co1 <- f$dist[id.co1$ind[1]:id.co1$ind[2]] 
    m.co1 <- lm(y.co1 ~ x.co1) 
#store the result at counter index in the outputlist 
    output[[counter]] <- list(xco =x.co1, yco=y.co1, lm =m.co1) 
    counter <- counter+1 
#prompt for next iteration 
    continue <- readline("again? y/n: ") 
#break the loop if the answer is 'n' or 'N' 
    if (tolower(continue)=="n") break 

    } 
#return your output 
    output 
} 

今何が起こることは、あなたが機能を再実行したい場合は、すべての繰り返しの後、機能が要求していることです。あなたが望むなら、あなたはもっと答えをチェックすることができます。 Nまたはn以外は何も応答しないと、ループが再び実行されます。

あなたがall <- func()を実行すると設定が完了した後、あなたがall[[1]]を使用して、各イテレーション結果にアクセスすることができ、all[[2]]など

一般的に、あなたの関数環境外でオブジェクトを操作するために眉をひそめていますのでご注意ので、希望してくださいあなたの関数に最初のプロットの生成を引きつけるためには、よりきれいになります。