findtruegamma = function(data=df,output=hmmout){
trueBetaSel = data$BETA[which(data$BETA[,1] %in% output$name),2]
return(as.numeric(trueBetaSel!=0))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.