Nothing
R/fun_less.R
In YPInterimTesting: Interim Monitoring Using Adaptively Weighted Log-Rank Test in Clinical Trials
fun_less <- function(x, ...) {
nx <- as.numeric(x)
ax <- c()
for (i in 1:length(x)) {
ax[i] <- ifelse(nx[i] < 1e-04, paste("<0.0001"), x[i])
}
return(ax)
}
Try the YPInterimTesting package in your browser
Any scripts or data that you put into this service are public.
YPInterimTesting documentation built on June 7, 2019, 5:02 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
fun_less <- function(x, ...) {
nx <- as.numeric(x)
ax <- c()
for (i in 1:length(x)) {
ax[i] <- ifelse(nx[i] < 1e-04, paste("<0.0001"), x[i])
}
return(ax)
}
Try the YPInterimTesting package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.