Nothing
`Get1G` <-
function(phi,n){
p<-length(phi)
x0<-sum(c(1,-phi))^2
x<-x0-rowSums(GetB(phi))-GetKappa(phi)
c(x,rep(x0,n-2*p),rev(x))
}
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.