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

# · R · 24 lines · 10 code · 8 blank · 6 comment · 0 complexity · ef848e158c5bc047dffc8a4ca20a10df MD5 · raw file 

    

  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.