Advertisement
Guest User

Untitled

a guest
Apr 19th, 2014
46
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.47 KB | None | 0 0
  1. [1] "146002 1591246 1453825 1976867 318484"
  2. [2] "669019 557068 787848 1752826 595490 1370072 32948 1059410 456048 2075616 2151636"
  3. [3] "7052 84626 1876916 289198 1925401"
  4. [4] "2074708 609769 2074708 1586598 1750679"
  5. [5] "230221 818400 230221 550378 569906 158775 178756"
  6. [6] "357215 1000036 45393
  7.  
  8. final output :
  9. 146002 1591246
  10. 146002 145825
  11. .........
  12.  
  13. gram_2<-vector()
  14. for(i in 1:length(data))
  15. {
  16. if(length(unlist(strsplit(data[i]," ")))>2){
  17. comb<-combn(unlist(strsplit(data[i]," ")),2)
  18. for(j in 1:ncol(comb))
  19. {
  20. gram_2<-rbind(gram_2,paste(comb[,j],collapse=" "))
  21. }
  22. }
  23. gram_2<-rbind(gram_2,paste(data[i],collapse=" "))
  24. }
  25.  
  26. apply(do.call(cbind, lapply(strsplit(data, " "), combn, 2)), 2, paste, collapse=" ")
  27.  
  28. unlist(lapply(strsplit(data, " ", fixed=TRUE), combn, 2, paste, collapse=" "))
  29.  
  30. do.call(rbind, sapply( lapply( sapply(vec, strsplit, " "), combn, 2),t))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement