Nothing
fn2 <- function(Bs.gammas,event,W2,P,wk,Time,W2s,id.GK){
-sum(event*drop(W2%*%Bs.gammas)-P*fastSumID(rep(wk,length(Time))*exp(drop(W2s%*%Bs.gammas)),id.GK))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.