这可能很有用
> Vector <- paste("x", 1:6, sep="")
> lapply(1:length(Vector), function(i) Vector[-i])
Run Code Online (Sandbox Code Playgroud)
我假设你所说的“列表”是指vector。如果是这样:
parameters <- rnorm(100)
y <- matrix(nrow=length(parameters)-1,ncol=length(parameters))
for(i in 1:length(parameters))
y[,i] <- parameters[-i]
Run Code Online (Sandbox Code Playgroud)
如果“列表”实际上是指 a list,则代码基本相同,但只需parameters <- unlist(parameters)先执行即可。