Nothing
"tokvel" <-
function (level=6, NSZIN=4, epa=FALSE) {
M <- 2^level
N <- M^2
KI <- sample(1:NSZIN, N, T)
KI <- matrix(KI, nrow=M, ncol=M)
attr(KI,"cim") <- "tokveletlen kep"
if(epa) KI <- KI - 1
return(KI)
}
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.