Nothing
T10 <- function(time, nger) {
N <- max(nger)
ni <- max(nger)
ti <- max(time)
nj <- min(nger)
tj <- min(time)
for (i in length(time):1) {
if (ni > ((N)/(100/10))) {
ni = nger[i]
ti = time[i]
}
}
for (j in 1:length(time)) {
if (nj < ((N)/(100/10))) {
nj = nger[j]
tj = time[j]
}
}
result <- ti + (((N)/(100/10) - ni)*(tj - ti))/(nj-ni)
return(result)
}
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.