# NOT RUN {
# One titre
one_titre <- sclr_ideal_data(
covariate_list = list(
logHI = list(gen_fun = function(n) rnorm(n, 2, 2), true_par = 2)
)
)
sclr(status ~ logHI, one_titre) # Verify
# Two titres
two_titre <- sclr_ideal_data(
covariate_list = list(
logHI = list(gen_fun = function(n) rnorm(n, 2, 2), true_par = 2),
logNI = list(gen_fun = function(n) rnorm(n, 2, 2), true_par = 1)
)
)
sclr(status ~ logHI + logNI, two_titre) # Verify
# }
Run the code above in your browser using DataLab