Nothing
blokitus2<-function(obj,blokki){
#
sar<-length(obj[1,]) #sarakkeiden maara
riv<-length(obj[,1]) #rivien maara
#
uusobj<-matrix(0,riv,sar+blokki)
uusobj[,1:sar]<-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.