論理テストのループからデータを保存しようとしています。私は、次のループRのループ:出力の保存方法は?
for (i in 1:49) {
print(T1 > F[i]) # I used print to see the results in the screen
}
このループは私の論理値(真または偽)で満たされた49個の行列を返すにrunnedいる
T1 <- matrix(seq(from=100000, to=6600000,length.out=676),26,26) # a matrix of 26X26 - here with illustrive values
minmax <- seq(from=1,to=49,by=1) # creates a sequence
Fstep <- 6569141.82/minmax # define a vector from 0 to 6569141.82 with 49 divisions
F <- rev(round(Fstep,0)) # round the vector values and re order them
F
:
は、だから私は、次のデータを持っています。各マトリックスは、49個の位置F [i](F [1]、...、F [49])のそれぞれに対するT1の比較である。
これらのマトリックスの値は、ネットワークプロットのための隣接行列。しかし、それらの論理値を行列に割り当てることができないときは、どちらも "write.matrix"を使ってcsv値に保存しないでください。
したがって、論理値(TまたはF)で49行の「W」を埋め込む必要があります。私はすでに上記のループによってそれらの値を持っていますが、私はオブジェクトとして、またはCSVのコレクションとして取得できません。ファイル。
Iは、次の警告
Warning messages:
1: In W[i] <- (T1 > F[i]) :
number of items to replace is not a multiple of replacement length
を返し
W<-matrix(0,26,26) #create an empty matrix to assign the logical arguments
for (i in 1:49){
W[i] <- T1>F[i] # I used print to see the results in the screen
}
を試みまた、私は比較すべての行列が同一の寸法を有している別の設定を試みました。
create.M <- function(F){ # a function to transform each position F[i] into a 26X26 matrix
for (i in 1:49) {
matrix(F[i],26,26)
}
}
Loop.T1 <- function(T1){ # a function to replicate T1(49 times)
for (i in 1:49) {
T1
}
}
と
は、使用しようとしている場合です。さもなければ耐久性のある何も「起こらない」。 –