This is one year, but, nevertheless, it is a complete solution. Make a phone call
d <- density(xs)
and define h = d$bw . Your KDE score is fully determined
xs elements- throughput
h , - type of kernel functions.
Given the new value of t , you can calculate the corresponding y(t) using the following function, which assumes that you used Gaussian kernels for the estimate.
myKDE <- function(t){ kernelValues <- rep(0,length(xs)) for(i in 1:length(xs)){ transformed = (t - xs[i]) / h kernelValues[i] <- dnorm(transformed, mean = 0, sd = 1) / h } return(sum(kernelValues) / length(xs)) }
What myKDE does is it computes y(t) using definition .
Antoine
source share