データフレーム(データテーブル)の上記N + 1行をグループごとに合計する関数が必要です。 ベクトルの同等の機能は、以下のようになります。 Function1<-function(x,N){
y<-vector(length=length(x))
for (i in 1:length(x))
if (i<=N)
y[i]<-sum(x[1:i])
else if (i>N
for()ループのスピード(タイミング)を下げて、プロットの変化を人間が目に見えるようにする方法を知りましたRの目(入力をクリックする必要はなく、ゆっくりとループを見ているだけです)?ここで はRコードの一部です: for (i in 1:50) {
plot(rnorm(40))
readline(prompt="Press [enter] to continue")
私はこのコードを使用します。しかし、それは非常に時間がかかります。どのように私はこれを速くすることができます助けてもらえますか? veri=replicate(1000, sim.VSS(ncases=3000, nvariables=20, nfactors=1, meanloading=0.5,dichot=1,cut=0))
#save date set
for (i in 1:1000
私は関数get_output_contentまたは少なくともget_output_length以下を探しています。これは、コンソールに表示された文字の数を示します。 test <- function(){
cat("ab")
cat("\b")
cat("cd")
c <- get_output_content() # "acd" (I'd be happy