data(cytotox)
model <- cytotox$sgl$model
param <- cytotox$sgl$param
## example 1
# using CA to predict the mixtures designed by equal effect concentration ratio (eecr) at the
# effect concentration of EC05 and EC50
# the eecr mixture design is based on four heavy metals and four ionic liquids(eight factors).
caPred(model, param, mixType = "eecr", effv = c(0.05, 0.5))
## example 2
# using CA to predict the mixtures designed by uniform design concentration ratio (udcr)
# the udcr mixture design is based on four heavy metals and four ionic liquids (eight factors).
# five levels (EC05, EC10, EC20, EC30, and EC50 ) are allocated in the uniform table using the
# pseudo-level technique (Liang et al., 2001)
model <- cytotox$sgl$model
param <- cytotox$sgl$param
effv <- c(0.05, 0.05, 0.10, 0.10, 0.20, 0.20, 0.30, 0.30, 0.50, 0.50)
caPred(model, param, mixType = "udcr", effv)
## example 3
# using CA to predict the mixtures designed by arbitrary concentration ratio (acr)
# the udcr mixture design is based on four heavy metals and one ionic liquid (five factors).
# the every component in the mixture shares exactly the same ratio (0.20)
model <- cytotox$sgl$model[1 : 5]
param <- cytotox$sgl$param[1 : 5, ]
effv <- c(0.2, 0.2, 0.2, 0.2, 0.2)
caPred(model, param, mixType = "acr", effv)
Run the code above in your browser using DataLab