getCtgTypefromInst<-function(Z){
Instperfix<-substr(getInst(Z),1,2)
lettr<-c("Q"=10,"W"=20,"C"=43,"W"=41,"B"=42)
names(lettr[lettr==Instperfix])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.