Displaying 1 result from an estimated 1 matches for "yprop".
Did you mean:
prop
2010 May 13
1
cdplot() with 'POSIXct' x
...n seq_len(ny-1L)) {
- dxi <- stats::density(x[y %in% levels(y)[seq_len(i)]], bw = dx$bw, n = n,
+ dxi <- stats::density(xnum[y %in% levels(y)[seq_len(i)]], bw = dx$bw, n = n,
from = min(dx$x), to = max(dx$x), ...)
y1[i,] <- dxi$y/dx$y * yprop[i]
rval[[i]] <- stats::approxfun(x1, y1[i,], rule = 2)
@@ -103,8 +106,8 @@
## use known ranges
y1 <- rbind(0, y1, 1)
- y1 <- y1[,which(x1 >= min(x) & x1 <= max(x))]
- x1 <- x1[x1 >= min(x) & x1 <= max(x)]
+ y1 <- y1[,which(x1 >= mi...