Nothing
PP3fastIX3 <-
function (Pvec, the.init, maxrow, k, maxcol, n, text)
{
avec <- Pvec[1:maxrow]
bvec <- Pvec[(maxrow+1):(2*maxrow)]
cvec <- Pvec[(2*maxrow+1):(3*maxrow)]
answer <- PP3ix3FromTU(the.init=the.init, avec=avec, bvec=bvec, cvec=cvec,
maxrow=maxrow, k=k, maxcol=maxcol, n=n, text=text)
return(answer)
}
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.