R：如何从 x 的 cdplot 中获取条件概率？
R: how to get the conditional probability out of a cdplot for x?
可重现的数据集：
a <- sample(45:3600, 500)
b <- sample(1:2, 500, replace=TRUE)
b <- factor(b, levels=c(1,2), labels=c("one", "two"))
CDP <- cdplot(b ~ a)
我想获得任何 x（在本例中为任何“a”）的条件概率（以 0 到 1 之间的数字形式）。
如果我们将cdplot分配给一个对象（比如问题中的CDP），这个对象就变成了1的列表，内容是second级别的函数b（“二”，在上述情况下）。该函数可以使用$访问，将x放在括号中可以得到任意x的条件概率，例如：
CDP$two(1500)
[1] 0.5388164
可重现的数据集：
a <- sample(45:3600, 500)
b <- sample(1:2, 500, replace=TRUE)
b <- factor(b, levels=c(1,2), labels=c("one", "two"))
CDP <- cdplot(b ~ a)
我想获得任何 x（在本例中为任何“a”）的条件概率（以 0 到 1 之间的数字形式）。
如果我们将cdplot分配给一个对象（比如问题中的CDP），这个对象就变成了1的列表，内容是second级别的函数b（“二”，在上述情况下）。该函数可以使用$访问，将x放在括号中可以得到任意x的条件概率，例如：
CDP$two(1500)
[1] 0.5388164