测试两个变量的长度，获取两者的长度并将较短的分配给下游工作的变量

Question

我需要一些帮助来完善我的代码。我正在尝试运行一个 wilcox 秩和检验并使用下面的代码来做：

Program_A <- c(95,78,88,84,89,83,79,85,74,81,77,82)         
Program_B <- c(91,93,83,98,86,95,99,100,94,107,92,102,105,103,87)

n1 <- length(Program_A)
n2 <- length(Program_B)

#make dataframe
Program_data <- data.frame( 
  sections = c(rep("Program_A", n1),
               rep("Program_B", n2)),
  scores = c(Program_A, Program_B)
)  

Program_data

#carry out function
Program_data1 <- Program_data %>%
  mutate(
    score_rank = rank(scores)
  ) %>%
  group_by(sections) %>%
  summarise(test_stat = sum(score_rank))

Program_data1
# sections  test_stat
# <chr>         <dbl>
# 1 Program_A        94
# 2 Program_B       284

Tx <- 94 #using the smallest value
n1 
n2 

z <- (Tx - (n1*(n1+n2+1))/2)/sqrt((n1*n2*(n1+n2+1))/12)
z

只要 Program_A 的长度更短，它就可以工作。

然而，我现在想做的是找到一种方法来测试 Program_A 和 Program_B 的长度，以测试如果数字的长度发生变化，哪个更大。

例如：Program_A <- c(95,78,88,84) Program_B <- c(91,93,83,98,86,95)

我想要一种方法来测试哪个变量更长，获取每个长度的值并以这样一种方式分配：n1 将始终具有较短长度变量的值，而 n2 将始终具有值较长的长度变量。

谢谢， DM

Answer 1

在变量的长度上使用 min 和 max 怎么样？

n1 <- min(length(Program_A), length(Program_B))
n2 <- max(length(Program_A), length(Program_B))

Answer 2

我们也可以

l1 <- lengths(list(Program_A, Program_B))
n1 <- min(l1)
n2 <- max(l1)

测试两个变量的长度，获取两者的长度并将较短的分配给下游工作的变量

Testing the length of two variables, getting the length of both and assigning the shorter one to a variable for downstream work

testing

variables

r

data-cleaning