library(VCA) library(unpakathon) library(dplyr)
pl = phenolong%>%filter(meta.experiment=="1", variable=="fruitnum") %>% mutate(institution=gsub("-GC.","",facility)) %>% mutate(knockout=grepl("SALK",accession)) %>% mutate(knockout=ifelse(grepl("60000",accession),F,knockout)) fit1 = anovaMM(value~(institution)+(institution/facility), Data=pl) print(fit1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.