# TODO: Add comment
#
# Author: blerner
###############################################################################
a <- 1
if(TRUE) {
a <- 1
}
ddddd <- 0
repeat {
ddddd <- ddddd + 1
if (ddddd == 7) {
break
}
}
f <- function (a) {
return(a + 1)
}
g <- function() 1
h <- function (a, b) {
if (a > b) return (1)
sum <- a + b
product <- a * b
source("foo.R")
write.csv("foo.csv")
pdf("foo.pdf")
dev.off()
return (sum)
}
exprs <- parse("../DDGStatement.R")
constructDDGStatement <- function (expr) {
print(expr)
print(typeof(expr))
return (new (Class = "DDGStatement", parsed = expr))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.