init_class <-
function(data,k){
p<-vector("list",1)
p[[1]][1:k]<- (1/k)
return(sample(k,nrow(data), replace = TRUE, prob =unlist(p) ))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.