Ad
Untitled
unknown
plain_text
a month ago
170 B
3
Indexable
Never
DoesRandomStateContainLetter<-function(x){
x<-unlist(strsplit(x,""))
randomsamp<-strsplit(sample(state.name,1),"")
sapply(x, function(x) any(grepl(x,randomsamp)))
}
Ad
DoesRandomStateContainLetter<-function(x){
x<-unlist(strsplit(x,""))
randomsamp<-strsplit(sample(state.name,1),"")
sapply(x, function(x) any(grepl(x,randomsamp)))
}