# NOT RUN {
data("RN_Brain_Example_tpm")
GPV <- RN_calc_GPV(RN_Brain_Example_tpm)
## The function is currently defined as
function (X, bind = TRUE)
{
rnums <- sapply(X, is.numeric)
GL_LPV <- apply(X[rnums], 1, ".RN_calc_GPV_row")
if (bind) {
GPV <- cbind(X, GL_LPV)
return(GPV)
}
else {
return(GL_LPV)
}
}
# }
Run the code above in your browser using DataLab