Nothing
plot.kernscale<-function(scale,pnum=60,maxy0=0,dens=FALSE,cex.axis=1)
{
hnum<-length(scale$hseq)
for (i in 1:hnum){
pk<-scale$pcfseq[[i]]
dp<-draw.pcf(pk,dens=dens,pnum=pnum)
if (i==1){
minx<-min(dp$x)
miny<-min(dp$y)
maxx<-max(dp$x)
maxy<-max(dp$y)
}
else{
minx<-min(minx,min(dp$x))
miny<-min(miny,min(dp$y))
maxx<-max(maxx,max(dp$x))
maxy<-max(maxy,max(dp$y))
}
}
maxy<-max(maxy,maxy0)
plot(x="",y="",xlim=c(minx,maxx),ylim=c(miny,maxy),xlab="",ylab="",
cex.axis=cex.axis)
for (i in 1:hnum){
pk<-scale$pcfseq[[i]]
dp<-draw.pcf(pk,dens=dens,pnum=pnum)
matpoints(dp$x,dp$y,type="l")
}
}
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.