mollietaylor

# calling the functions
# this is the file where we will call the functions in fun.R and times.R
times <- dget("times.R")
times(-4:4, 2)

source("fun.R")
mult(-4:4, 2)

stephenturner

niter <- 100
pb <- txtProgressBar(min=0, max=niter, style=3)
for (i in 1:niter) {
  Sys.sleep(0.025) # Do something here besides sleep!
  setTxtProgressBar(pb, i)
}