R 为什么我会收到；无效'；右'；“辩论”；使用cut（）时

我在R中创建了一个函数，该函数基于体积度量而不是观察计数来创建小数点（或任何n-tile）

User_Decile <- function(x,n,Output = " "){
    require(dplyr)
    df <- data_frame(index = seq_along(x),value = x)
    x_sum <- sum(df$value)
    x_ranges <- x_sum/n
    df <- df %>% arrange(value)
    df$cumsum <- cumsum(df$value)
    df$bins <- cut(df$cumsum, breaks = floor(seq(0, x_sum, x_ranges)),
                   right = T,
                   include.lowest = T,
                   labels = as.integer(seq(1,n,1)))

if(Output == "Summary"){
    df <- df %>% group_by(bins)
    return(df %>% summarise(Lower_Bound = min(value),
           Upper_Bound = max(value) - 1,
           Value_sum = sum(value)))}

else {
    df <- df %>% arrange(index)
    return(as.numeric(df$bins))}
}

根据错误，问题在于cut（）函数中的“right”参数。据我所知，

right=

参数是布尔值，只接受T或F值。我两个都试过了，但似乎都不管用

---

是否有人对此问题有解决方法，或者可以推荐另一个函数来代替

cut（）

？

？TRUE

说明：

TRUE和FALSE是表示R中逻辑常数的保留字 语言，而T和F是全局变量，其初始值 设置为这些

似乎

T

在这里被解释为其他东西。为了安全起见，您应该始终使用

TRUE

Error in .bincode(x, breaks, right, included.lowest) :
  invalid 'right' argument