fres_zvalues <-
function(f_path){
# Read majority of data (skip 1st line)
trend <- read.table(f_path, header=TRUE, stringsAsFactors = FALSE, strip.white = TRUE, na.strings = c("NA", "*******", "********", "1.#QO"), comment.char = "", sep=',')
# Run the Z-test
x<-z_value(trend=trend)
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.