Loading...
Loading...
by Bydhov
word1=as.character(noquote(strsplit("isemperoroffrancenapoleon",NULL)[[1]])) word2=as.character(noquote(strsplit("isfrenchgeneralnapoleonbonaparte",NULL)[[1]])) word3=as.character(noquote(strsplit("isemperorofthefrenchnapoleonbonaparte",NULL)[[1]])) number=rep(0,3) for(i in 1:length(word1)){ number[1]=number[1]+which(letters==word1[i])
name=as.character(noquote(strsplit("sofiaparasidou",NULL)[[1]])) number=0 for(i in 1:length(name)){number=number+which(letters==name[i])