Edward
2012-07-31 03:49:06
请尝试以下方法：
set.seed(700)
clientID <- round(runif(200,min=2000, max=3000),0)
orders <- round(runif(200,min=1, max=50),0)
df <- df <- data.frame(cbind(clientID,orders))
ApplyQuintiles <- function(x) {
cut(x, breaks=c(quantile(df$orders, probs = seq(0, 1, by = 0.20))),
labels=c("0-20","20-40","40-60","60-80","80-100"), include.lowest=TRUE)
}
df$Quintile <- sapply(df$orders, ApplyQuintiles)
table(df$Quintile)
0-20 20-40 40-60 60-80 80-100
40 41 39 40 40
我包括include.lowest=TRUE在你的剪切功能中，这似乎可以使它正常工作。请参阅?cut以获取更多详细信息。
热门帖子
热门github
1
2
3
5
6
7
8
11
13
14
15
Mamba is a new state space model architecture showing promising performance on information-dense data such as language modeling, where previous subquadratic models fall short of Transformers. It is based on the line of progress on structured state space models, with an efficient hardware-aware design and implementation in the spirit of FlashAttention.
(翻译：Mamba 是一种新的状态空间模型架构，在信息密集型数据（例如语言建模）上显示出良好的性能，而之前的二次模型在 Transformers 方面存在不足。它基于结构化状态空间模型的进展，并本着FlashAttention的精神进行高效的硬件感知设计和实现。)
在第六行代码中应该有x而不是df $ orders吗？
是的，应该如此。这是一个改进的版本，允许您指定splitPct值：
applyQuintiles <- function(cVector, splitPct) { if(1 %% splitPct == 0) { labelTags <- paste0("< ",seq(0, 1, by = splitPct) * 100,"%")[-1] cut(cVector, breaks=c(quantile(cVector, probs = seq(0, 1, by = splitPct))), labels=labelTags, include.lowest=TRUE) } else {message("Your splitPct is not summing to 1 (100%).")} }好的stackoverflow不允许我格式化，但是复制粘贴应该可以