# Example predictorMatrix
predictorMatrix <- matrix(1, nrow = 3, ncol = 3,
dimnames = list(c("block1", "block2", "block3"), c("x1", "x2", "y")))
predictorMatrix[1, 3] <- 0
# Case 1: No calltype or formulas specified
make.calltype(NULL, predictorMatrix, NULL)
# Case 2: Formulas provided
formulas <- list(
NULL,
y ~ x1 + x2,
NULL
)
make.calltype(NULL, predictorMatrix, formulas)
# Case 3: Custom calltype
calltype <- c("pred", "formula", "pred")
make.calltype(calltype, predictorMatrix, NULL)
Run the code above in your browser using DataLab