Nothing
blokitus<-function(obj,blokki){
#
if (dim(t(obj))[1]==1) k<-1 else k<-length(obj[,1]) #rivien maara
if (k==1){
len<-length(obj)
uusobj<-matrix(0,len+blokki,1)
uusobj[1:len]<-obj
}
else{
lev<-length(obj[1,])
uusobj<-matrix(0,k+blokki,lev)
uusobj[1:k,]<-obj
}
return(uusobj)
}
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.