# NOT RUN {
df2 = data.frame(Jan = c(23455, 56432, 64344), Feb = c(21145, 43213, 76433),
Mar = c(2005, 86432, 64344), April = c(40149, 67746, 43203), May = c(85438, 05847,6849),
June = c(5565,44253, 78253), July = c(85724, 87346, 33332), Aug = c(45782, 5279, 6235))
sam(status = df2, tgoal = 54635, dtev = 1)
# }
Run the code above in your browser using DataLab