Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [1] "146002 1591246 1453825 1976867 318484"
- [2] "669019 557068 787848 1752826 595490 1370072 32948 1059410 456048 2075616 2151636"
- [3] "7052 84626 1876916 289198 1925401"
- [4] "2074708 609769 2074708 1586598 1750679"
- [5] "230221 818400 230221 550378 569906 158775 178756"
- [6] "357215 1000036 45393
- final output :
- 146002 1591246
- 146002 145825
- .........
- gram_2<-vector()
- for(i in 1:length(data))
- {
- if(length(unlist(strsplit(data[i]," ")))>2){
- comb<-combn(unlist(strsplit(data[i]," ")),2)
- for(j in 1:ncol(comb))
- {
- gram_2<-rbind(gram_2,paste(comb[,j],collapse=" "))
- }
- }
- gram_2<-rbind(gram_2,paste(data[i],collapse=" "))
- }
- apply(do.call(cbind, lapply(strsplit(data, " "), combn, 2)), 2, paste, collapse=" ")
- unlist(lapply(strsplit(data, " ", fixed=TRUE), combn, 2, paste, collapse=" "))
- do.call(rbind, sapply( lapply( sapply(vec, strsplit, " "), combn, 2),t))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement