1

頻繁に検索し、多くのフォーラムを読んだ後、今までにこれに対する答えを見つけて理解する必要があったように感じますが、それでも私は本当に混乱しています. r にネストされた 2 つの for ループがあり、出力を変数に保存する必要がありますが、何をどこに割り当てるか正確にはわかりません。コードは私が望むように機能しますが、何らかの形で出力を取得する方法が見つからないようです。ループへの入力は部分行列のリストです。出力は、ループで発生した変更を含む同じ形式にすることも、1 つの行列にすべての行と列を含めるより理想的な形式にすることもできます。私は cbind を実行するだけでなく、後ですべてを格納するためにループの外に変数を作成しようとしました (おそらく、コメントアウトされたこれらの試みに気付くでしょう) が、私が言ったように、私は ' まだ少し混乱しています。どんな助けでも大歓迎です！

loop.List <- list()
#results.frame <- data.matrix()

ctr <- 0 # creating a counter and zeroing it


for (i in 1:length(subM.List))   { #Looping through each submatrix in the list
  loop.List[[i]] <- list()
  for (j in 2:nrow(subM.List[[i]])){ #Loop through each row of each submatrix in the list
  if ((subM.List[[i]][j, "LAT"] == -180) & #Imputation 1, imputing data points with 0 activity intensity
     (subM.List[[i]][j, "ACTIVITYIN"] ==  0)   & 
     !((subM.List[[i]][j-1, "ACTIVITYIN"]  >  0))[1]) {   #stop imputing at the first occurrence of a value > 0 in activity intensity
        imputeLat <- replace(subM.List[[i]][ ,"LAT"], subM.List[[i]][j,"LAT"], subM.List[[i]][j-1,"LAT"])
        imputeLon <- replace(subM.List[[i]][ ,"LON"], subM.List[[i]][j,"LON"], subM.List[[i]][j-1,"LON"])
        replace.col <- replace(subM.List[[i]][ ,"Impute"], subM.List[[i]][j,"Impute"], 1) #populated impute column. If point is imputed will have a 1
        allComb <- cbind(imputeLat, imputeLon, replace.col)
        ctr <- (ctr + 1)
    }
  }
  #result[[i]] <- allComb
#write.table(results.frame, "C:\\RWorkspace\\newMatrix.txt")
  #return(results.frame)
}

編集: サブマトリックスの 1 つのデータ サンプル リストには、行数が異なるいくつかのサブマトリックスが含まれています。

FixTYPE          ActivityIn    LAT     LON     Impute
 8                      0   32.81320 -117.2300
 8                      0   32.81324 -117.2301
 8                      1   32.81327 -117.2302
 8                      1   32.81326 -117.2301
 6                      0   32.81324 -117.2300
 6                      0   32.81338 -117.2302
 6                      0   32.81353 -117.2299
 7                      0   -180.000 -180.000
 7                      0   -180.000 -180.000
 7                      0   -180.000 -180.000
 7                      0   -180.000 -180.000
 7                      1   -180.000 -180.000
 7                      2   -180.000 -180.000
 7                      1   -180.000 -180.000
 1                      0   32.81315 -117.2300
 8                      0   32.81318 -117.2300
4

1 に答える 1