PageRenderTime 34ms CodeModel.GetById 1ms RepoModel.GetById 1ms app.codeStats 0ms

/trunk/Examples/r/simple/runme.R

#
R | 24 lines | 10 code | 8 blank | 6 comment | 0 complexity | ef848e158c5bc047dffc8a4ca20a10df MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. # file: runme.R
    2. 

  2. 

  3. dyn.load(paste("example", .Platform$dynlib.ext, sep=""))
    4. 

  4. source("example.R")
    5. 

  5. cacheMetaData(1)
    6. 

  6. 

  7. # Call our gcd() function
    8. 

  8. 

  9. x <- 42
    10. 

  10. y <- 105
    11. 

  11. g <- gcd(x,y)
    12. 

  12. sprintf("The gcd of %d and %d is %d", x, y, g)
    13. 

  13. 

  14. # Manipulate the Foo global variable
    15. 

  15. 

  16. # Output its current value
    17. 

  17. Foo()
    18. 

  18. 

  19. # Change its value
    20. 

  20. Foo(3.1415926)
    21. 

  21. 

  22. # See if the change took effect
    23. 

  23. Foo()
    24. 

  24. 

  25.