# Remove An `amModel` Or `amData` Object From An `amModelLib` Object Remove an object of class `amModel` or `amData` (a fitted model object or data to fit a model or use as covariate data, with mandatory metadata) from an `amModelLib` object. ```r rmModel(amml, x) rmData(amml, x) ``` ## Arguments - `amml`: An `amModelLib` object. - `x`: A character vector, numeric vector, or logical vector identifying model(s) or data to remove. ## Returns An object of class `amModelLib`. ## Examples ```r # create dataset from lm helpfile ## Annette Dobson (1990) "An Introduction to Generalized Linear Models". ## Page 9: Plant Weight Data. ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14) trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69) group <- gl(2, 10, 20, labels = c("Ctl","Trt")) weight <- c(ctl, trt) lm.D9 <- lm(weight ~ group) lm.D90 <- lm(weight ~ group - 1) # omitting intercept # create an amData object that includes metadata plant.data <- data.frame(group = group, weight = weight) plant.data <- amData( data = plant.data, comment = 'Dataset from lm helpfile.' ) log.plant.data <- data.frame(group, log.weight=log(weight)) log.plant.data <- amData( data = log.plant.data, comment = 'data to fit log model', source = 'lm helpfile (R).' ) # create two amModel objects with metadata and a soft link to the data full.model <- amModel( model = lm.D9, comment = 'full model', source = 'lm helpfile (R).', taxa = 'plants', data = 'plant.data' ) no.int.model <- amModel( model = lm.D90, comment = 'model without intercept', source = 'lm helpfile (R).', taxa = 'plants', data = 'plant.data' ) # create an amModelLib that contains the two amModel objects and two amData objects # the models and data must be supplied as named lists mymodels <- amModelLib( models = list( full.model = full.model, no.int.model = no.int.model ), data=list( plant.data = plant.data, log.plant.data = log.plant.data ) ) # show the library mymodels # remove just the second model rmModel(mymodels, 'no.int.model') # remove the first plant data, has a soft-link from a model, throws warning. rmData(mymodels, 'plant.data') # show the library mymodels ``` ## See Also Other amModelLib: `AMModels`, `amData`, `amModelLib`, `amModel`, `getters`, `grepAMModelLib`, `insertAMModelLib`, `lsModels`

rmModel function