Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on Aug 1st, 2012  |  syntax: None  |  size: 1.09 KB  |  hits: 11  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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