Nothing
sq.pe <-
function(r1,r2,v){
S<-seq(r1,r2,1)
L<-length(S)
b<-lapply(1:v, function(i) c(make(r1,r2,i,v)))
bb<-do.call(cbind,b)
return(bb)}
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.