如何使用r获取数据帧中嵌套循环的输出?如何设置时间循环?
我对r不熟悉,并致力于布尔建模-我的嵌套循环以0和1的形式给出50个rtk值的输出,如何将此输出存储在数据帧中,cbind不起作用。请帮忙。 2.此外,我还想介绍一个时间循环,即如果j=5秒,我希望rtk根据i0中的nwki值进行更改,对于j=1到3,时间j=4,5秒,我希望rtk根据i0中的nwk值进行更改 代码如下如何使用r获取数据帧中嵌套循环的输出?如何设置时间循环?,r,boolean,modeling,R,Boolean,Modeling,我对r不熟悉,并致力于布尔建模-我的嵌套循环以0和1的形式给出50个rtk值的输出,如何将此输出存储在数据帧中,cbind不起作用。请帮忙。 2.此外,我还想介绍一个时间循环,即如果j=5秒,我希望rtk根据i0中的nwki值进行更改,对于j=1到3,时间j=4,5秒,我希望rtk根据i0中的nwk值进行更改 代码如下 library (BoolNet)#make sure lib is installed library(igraph) setwd("C:/Users/neha gopal/D
library (BoolNet)#make sure lib is installed
library(igraph)
setwd("C:/Users/neha gopal/Desktop/IISC-mkj/r for boolean")#"
nwki<- loadNetwork("rtkufi.txt",bodySeparator =",",lowercaseGenes = FALSE)#"
nwk<- loadNetwork("rtkuf.txt",bodySeparator =",",lowercaseGenes = FALSE)#"
inc<-c(1,0,0,0,0,0,0,0,0,0)#vector
stF<- stateTransition(network=nwki,state= inc,type = "asynchronous")
stF
#loops working
rtk_values <-rep(0,50)# empty vector for total no of rtk output values
rtk_values
ts<- 10
for (i in 1:ts)# trajectories i=10
{
i0 <- inc
rtk_values <-rep(0,50)
rtk <- i0[2]
tr<-5 #time j=5
for (j in 1:tr)
{
i0 <- stateTransition(network=nwki,state= i0,type = "asynchronous")
rtk <- i0[2]
print (paste0( ",Im in J and my j is ", j, " and my i is", i,"rtk is" , rtk ))
}
}
#table NOT working
rtk_values[j]= rtk
rtk_table <- cbind.data.frame( rtk_values, rtk)
library(BoolNet)#确保安装了lib
图书馆(igraph)
setwd(“C:/Users/neha gopal/Desktop/IISC mkj/r表示布尔值”)#”
nwki提问的最佳方式是提供一个可重复的示例。如果您的问题是如何存储for循环中的变量,这将是一种方法:
result <- list() # initalize an empty list
for (i in 1:10){
result[[i]] <- i # populate list with every loop
}
result请使您的示例具有可复制性和最小化(例如,使用最少的函数/包来演示您的问题)。从我坐的地方看,如果您对代码进行格式化/缩进,也会有所帮助。
result <- list()
for (i in 1:10){
result_nested <- list() # initialize an empty list within the loop
for (nested in 1:5){
result_nested[[nested]] <- nested # populate the results from the nested loop.
}
result[[i]] <- result_nested # populate the result from the nested loop to the parent loop
}