# NOT RUN {
## Define a function and export it's code to the file /test.html.
## Target file may be changed when submitting this code...
myfile <- paste(tempfile(),".html",sep="")
myfun <- function(x){
cat("\n Euclidian norm")
return(sqrt(sum(x^2)))
}
HTML(myfun,file=myfile)
cat("\n Test output written in: ",myfile)
# }
Run the code above in your browser using DataLab