as.winsteps <- function(cmd, ifile, pfile, daterun = NULL,
comptime = NULL) {
out <- list(cmd = as.wcmd(cmd), ifile = as.ifile(ifile),
pfile = as.pfile(pfile), daterun = daterun,
comptime = comptime)
class(out) <- "winsteps"
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.