maseSS<-function(obs,hat,step=1,na.rm=TRUE){
t=length(hat)
sum(abs(obs[-seq(step)]-hat[-seq(step)]),na.rm=na.rm)/
sum(abs(obs[-seq(step)]-obs[-(length(obs)-seq(step)+1)]),na.rm=na.rm)}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.