Nothing
control.gsym.point <-
function(
B = 499,
c_sampling = 0.25,
c_F = 0.25 ,
c_ELq = 0.25,
c_R = 0.25 ,
I = 2500)
list(B = B, c_sampling = c_sampling, c_F = c_F , c_ELq = c_ELq, c_R = c_R, I = I)
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.