How to make this function code run quick in R - should be around 1 second and its around 19 now

前端未结

关注

 0  689

# BEGIN CODE
my.kernel <- function(Yt){
  for (i in 1:length(Yt)) {
    Yt[i] <- ifelse(abs(Yt[i]) <= 1, (35/32)*(1 - Yt[i]^2)^3, 0)}
  Yt}

Pr (adsbygoogle = window.adsbygoogle || []).push({});