If Else 语句和向量长度

If Else Statements and Vector Length

我正在尝试执行不等长向量之间的相关性,例如,

cor(x , y )

我想对每个使用尽可能多的观察值。 此外,我想从每个向量中采样 "randomly"。

在伪代码中:

cor( 
   sample(x, size = length(x or y, whichever is smaller), replace = FALSE ) 
 , sample(y, size = length(x or y, whichever is smaller), replace = FALSE )
)

关于如何执行此操作的任何想法?

很确定这会满足您的要求,但我会质疑您不使用成对相关的动机:

x <- 1:10
y <- 15:35

min.of.xy <- min(length(x), length(y))

cor(sample(x, min.of.xy, replace = FALSE),
    sample(y, min.of.xy, replace = FALSE))