tests/testthat/resources/hash-pipe-anno.R

In guildai: Track Machine Learning Experiments

#!/usr/bin/env Rscript
#| requires:
#|   - file: file.txt
#|     description: File dependency
#| output-scalars:
#|   step: 'step: (\value)'
#|   loss: 'loss: (\value)'
#|   accuracy: 'accuracy: (\value)'

library(tensorflow)

#| description: "`x` by any other name would smell as sweet."
x <- .1

#| {max: 1, min: 0}
noise <- .3

#| choices: [bar, baz, foo]
type <- "foo"

init_phase <- 0+0i


x <- readLines("file.txt")


loss <- (sin(5 * x) * (1 - tanh(x^2)) + rnorm(1) * noise)

cat("loss:", loss, "\n")