pk <- readRDS(file=system.file("examples/data/xgxr2.rds",package="NMdata"))
lapplydt(pk,by="DOSE",fun=nrow)
lapplydt(pk,by="DOSE",fun=function(x,.nm) {
message("this is subset",.nm)
message(paste("Result:",nrow(x)))
})
Run the code above in your browser using DataLab