Nothing
`nashS` <-
function (modelled, measured, weigth=NA) {
t.na <- is.na(measured) | is.na(modelled)
t.meas <- measured[!t.na]
t.model <- modelled[!t.na]
t.mean <- mean(t.meas)
if(is.na(weigth[1])){
weigth <- rep(1,NROW(t.meas))
} else {
weigth <- weigth[!t.na]
}
t.a <- (t.meas - t.model)*weigth
t.b <- (t.meas - t.mean)*weigth
ns <- 1- ( t.a %*% t.a / t.b %*% t.b)
return(ns)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.