Nothing
deletion3 <- function(string){
len <- nchar(string)
i<-1:len
j<-1:(len-1)
k<-1:(len-2)
bucket<-c()
bucket<-append(bucket,string)
bucket<-append(bucket,unique(as.vector(sapply(string, function(x) paste0(str_sub(string,1,i-1),str_sub(string,i+1,nchar(string)))))))
bucket<-append(bucket,unique(as.vector(sapply(as.vector(sapply(string, function(x) paste0(str_sub(x,1,i-1),str_sub(x,i+1,nchar(x))))), function(x) paste0(str_sub(x,1,j-1),str_sub(x,j+1,nchar(x)))))))
bucket<-append(bucket,unique(as.vector(sapply(as.vector(sapply(as.vector(sapply(string, function(x) paste0(str_sub(x,1,i-1),str_sub(x,i+1,nchar(x))))), function(x) paste0(str_sub(x,1,j-1),str_sub(x,j+1,nchar(x))))), function(x) paste0(str_sub(x,1,k-1),str_sub(x,k+1,nchar(x)))))))
bucket
}
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.