Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/83.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R中for循环的非整数排序_R_For Loop - Fatal编程技术网

R中for循环的非整数排序

R中for循环的非整数排序,r,for-loop,R,For Loop,对于下面的代码,我需要R中的非整数序列。因为,当我运行下面的代码时,我收到一个错误“error in datalist[[j]],来自seq的输出不是整数。最好在向量序列上循环 v1 <- seq(0, 1, 0.125) datalist <- vector('list', length(v1)) for(j in seq_along(v1)) { DF1 <- do.call(cbind, lapply(seq(5,60,5), function(i) setN

对于下面的代码,我需要R中的非整数序列。因为,当我运行下面的代码时,我收到一个错误“error in datalist[[j]],来自
seq
的输出不是整数。最好在向量序列上循环

v1 <- seq(0, 1, 0.125)
datalist <- vector('list', length(v1))
for(j in seq_along(v1)) {
      DF1 <- do.call(cbind, lapply(seq(5,60,5), function(i) setNames(data.frame(rlnorm(n=10000, log(i^2 / sqrt((i*j)^2 + i^2)), sqrt(log(1 + ((i*j)^2 / i^2))))), i)))
 DF1$CV <- v1[j]
 datalist[[j]] <- DF1
  }
         

v1当
j==0.125
时,你期望数据列表[[j]]
是什么意思?即使你能让它工作,使用非整数作为索引似乎并不可靠,因为可能存在浮点舍入错误。谢谢你的回答。代码部分(DF1$CV@sm_050)很抱歉忘记了。它是
v1[j]
v1 <- seq(0, 1, 0.125)
datalist <- vector('list', length(v1))
for(j in seq_along(v1)) {
      DF1 <- do.call(cbind, lapply(seq(5,60,5), function(i) setNames(data.frame(rlnorm(n=10000, log(i^2 / sqrt((i*j)^2 + i^2)), sqrt(log(1 + ((i*j)^2 / i^2))))), i)))
 DF1$CV <- v1[j]
 datalist[[j]] <- DF1
  }