Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/arrays/14.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/68.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
Arrays 创建一个数组,其中每个元素都是R中不同长度的列表_Arrays_R - Fatal编程技术网

Arrays 创建一个数组,其中每个元素都是R中不同长度的列表

Arrays 创建一个数组,其中每个元素都是R中不同长度的列表,arrays,r,Arrays,R,我想创建一个数组。每个元素都将被指定为一个列表,每个列表的长度都不同(在脚本执行之前未知)。一个简单的例子是让A[1]为列表q,A[2]为列表。是否有一个我可以使用的结构,可能不同于数组,允许这样的赋值 q <- c(1,2,3,4,5) w <- c(6,7,8) a <- array(2) a[1] <- q q由于您需要一组列表,请尝试: a[1] <- list(q) a[1]我想你想要的是一个向量列表 q <- c(1,2,3,4,5) w

我想创建一个数组。每个元素都将被指定为一个列表,每个列表的长度都不同(在脚本执行之前未知)。一个简单的例子是让A[1]为列表q,A[2]为列表。是否有一个我可以使用的结构,可能不同于数组,允许这样的赋值

q <- c(1,2,3,4,5)

w <- c(6,7,8)

a <- array(2)

a[1] <- q

q由于您需要一组列表,请尝试:

a[1] <- list(q)

a[1]我想你想要的是一个向量列表

q <- c(1,2,3,4,5)
w <- c(6,7,8)
a <- list()

a[[1]] <- q

q正如评论中所指出的,您可能要查找的是
列表
,而不是
数组
(后者更类似于多维矩阵或数学向量)

但是,除此之外,如果索引:


R
中,
a[1]列表工作原理之间有一个主要区别-谢谢!它允许我根据一些分隔线将一个位置数组划分为一个列表列表


delta将
a
强制为
列表
我认为两种解决方案产生相同的结果——列表向量。@senorO,rmk是正确的。除非我不一定称之为列表向量,而是向量列表。我所说的是,通过
a@SeñorO,啊。。明白了。是的,有道理。在R中,数组是多维数据结构。R向量或列表更接近java/C数组
q <- c(1,2,3,4,5)
w <- c(6,7,8)
a <- list()

a[[1]] <- q
a <- list()
a[[1]] <- q
a[[2]] <- w 
a
a <- list()
a[1] <- q
a[2] <- w 
a
dist <- posvec[j]-posvec[j-1]

if (dist <= delta) {

    v <- c(v,posvec[j])

    jtest <- 1

}

if (dist > delta) {

    if (jtest > 0) {

        pcind <- pcind + 1

        pcls[[pcind]] <- v

        v <- posvec[j]

    }

    jtest <- 0

}