scriptTests/NoDetails/NoDetails.R

In End-to-end-provenance/rdt: Provenance Collector

# normal function call
# this section should be omitted from the ddg!
f1 <- function(n)
{
	if( n == 0 )
		return(5)
	else
		return(n+1)
}

x <- f1(0)

# a plot to a pdf file (modified from Plot1)
data (mtcars)
allCars.df <- mtcars

cars4Cyl.df <- allCars.df[allCars.df$cyl == 4, ]
cars6Cyl.df <- allCars.df[allCars.df$cyl == 6, ]
cars8Cyl.df <- allCars.df[allCars.df$cyl == 8, ]

cylinders = c(4, 6, 8)
mpg = c(mean(cars4Cyl.df$mpg), mean(cars6Cyl.df$mpg), mean(cars8Cyl.df$mpg))

pdf ("plot.pdf")
plot(cylinders, mpg)
title("RStudio display")
dev.off()

# an error
as.roman(z)