Just a little difference.
ecdf.tbl <- function (.dat) {
.dat <- as.matrix(.dat)
na.m <- is.na(.dat)
.dat[na.m]<-0 # Assign NA a value 0
res <- apply(t(apply(.dat,1,cumsum)),2,cumsum)
res[na.m] <- NA # Assign NA back
return(res)
}
-----
A R learner.
--
View this message in context:
http://r.789695.n4.nabble.com/discrete-ECDF-tp2313561p2313673.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
