Development/Dev_Local_GP/Cpp_funs/linpredmixed.R
In drizopoulos/JMbayes2: Extended Joint Models for Longitudinal and Time-to-Event Data
library(Rcpp)
library(RcppArmadillo)
sourceCpp(file = 'D:/gpapageorgiou/Github_Repos/JMbayes2/Dev_Local/Cpp_funs/linpredmixed.cpp')
obj$model_data$idL_lp_minus1 <- lapply(obj$model_data$idL_lp, FUN = function(x) x - 1)
eta <- linpred_mixed(obj$model_data$X, obj$initial_values$betas, obj$model_data$Z, obj$initial_values$b, obj$model_data$idL_lp_minus1)
eta[[1]]
length(obj$model_data$idL[[1]])
drizopoulos/JMbayes2 documentation built on April 15, 2024, 3:44 a.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.
library(Rcpp)
library(RcppArmadillo)
sourceCpp(file = 'D:/gpapageorgiou/Github_Repos/JMbayes2/Dev_Local/Cpp_funs/linpredmixed.cpp')
obj$model_data$idL_lp_minus1 <- lapply(obj$model_data$idL_lp, FUN = function(x) x - 1)
eta <- linpred_mixed(obj$model_data$X, obj$initial_values$betas, obj$model_data$Z, obj$initial_values$b, obj$model_data$idL_lp_minus1)
eta[[1]]
length(obj$model_data$idL[[1]])
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.