data(kinome)
## Fitting the parallel mixed model with weights
fit1 <- pmm(kinome,"InfectionIndex","weight_library")
head(fit1)
## Fitting the parallel mixed model without weights
fit2 <- pmm(kinome,"InfectionIndex","None")
head(fit2)
## Accessing the fit of the linear mixed model
fit3 <- pmm(kinome,"InfectionIndex","weight_library",simplify=FALSE)
identical(fit1,fit3[[1]])
summary(fit3[[2]])
## NA-Handling
kinome$InfectionIndex[kinome$GeneID == 10000 & kinome$condition ==
"ADENO"] <- rep(NA,12)
fit4 <- pmm(kinome,"InfectionIndex","weight_library",3)
head(fit4)Run the code above in your browser using DataLab