# Example custom PML code (simplified)
custom_pml <- "test() {
cfMicro(A1, Cl / V)
dosepoint(A1)
C = A1 / V
error(CEps = 1)
observe(CObs = C + CEps)
stparm(V = tvV * exp(nV))
stparm(Cl = tvCl * exp(nCl))
fixef(tvV = c(, 1, ))
fixef(tvCl = c(, 1, ))
ranef(diag(nV, nCl) = c(1, 1))
}
"
# Create a custom space with an explicit name
custom_model_set <-
create_CustomSpace(CustomCode = custom_pml,
SpaceName = "My1CptOral")
# Print the structure (will show parsed components within the list element)
# print(custom_model_set)
# List the name of the created space
names(custom_model_set) # Output: "My1CptOral"
# Create a custom space with an automatically generated name
custom_model_set_auto_name <- create_CustomSpace(CustomCode = custom_pml)
names(custom_model_set_auto_name)
Run the code above in your browser using DataLab