Nothing
na2Incomplete=function(from){
d=as.integer(dim(from))
rows=rep(1:d[1],d[2])
cols=rep(1:d[2],rep(d[1],d[2]))
nisna=!is.na(from)
new("Incomplete",as(sparseMatrix(i=rows[nisna],j=cols[nisna],x=from[nisna],dims=d),"dgCMatrix"))
}
setAs("matrix","Incomplete",na2Incomplete)
sparse2Incomplete=function(from) new("Incomplete",as(from,"dgCMatrix"))
setAs("sparseMatrix","Incomplete",sparse2Incomplete)
Incomplete=function(i,j,x){
new("Incomplete",as(sparseMatrix(i=i,j=j,x=x),"dgCMatrix"))
}
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.