g.grr.probit <- function(G,theta){ res = rep(NA,length(G)); res[G==0|G==2] = 2; res[G==1] = -4; return(res); }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.