Guest User

Untitled

a guest
Aug 1st, 2012
26
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.09 KB | None | 0 0
  1. Creating package for Mac in Windows / Linux
  2. # random DNA function
  3. randDNA = function(n){
  4. paste(sample(c("A", "C", "T", "G"), n, replace = TRUE), collapse = "")
  5. }
  6. # DNA to RNA function
  7. dna2rna <- function(inputStr) {
  8. if (!is.character(inputStr))
  9. stop("need character input")
  10. is = toupper(inputStr)
  11. chartr("T", "U", is)
  12. }
  13.  
  14. # complementary sequence function
  15. compSeq <- function(inputStr){
  16. chartr("ACTG", "TGAC", inputStr)
  17. }
  18.  
  19. # example data
  20. dnaseq1 <- c("ATTGTATCTGGGTATTTCCCTTAATTGGGGCCTTT")
  21. dnaseq2 <- c("TGGGGTAAACCCGGTTTAAAATATATATATTTTT")
  22. myseqdata <- data.frame(dnaseq1, dnaseq2)
  23. save(myseqdata, file = "myseqdata.RData")
  24.  
  25. require(utils)
  26. package.skeleton(list = c("randDNA","dna2rna", "compSeq", "myseqdata"),
  27. name = "dnatool",environment = .GlobalEnv, path = "c:", force = FALSE)
  28.  
  29. C:Rtoolsbin;C:Rtoolsperlbin;C:RtoolsMinGWbin;
  30. C:Program FilesRR-2.14.2binx64;
  31.  
  32. c: repackage> R CMD build dnatool
  33. c: repackage> Rcmd build dnatool
  34.  
  35. c: repackage> R CMD check dnatool
  36.  
  37. Unix source: dnatool.tar.gz
  38. Mac OS X binary: dnatool.tgz
  39.  
  40. $ tar -zcvf dnatool.tar.gz/home/dnatool
Advertisement
Add Comment
Please, Sign In to add comment