assay_index<-function(target,plate){
A<-target == "LLOD"
B<-target == "SSMD-Z'"
C<-plate == "Whole"
D<-plate == "Split"
c(1:3)[c(A,all(B,C),all(B,D))]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.