Hello all,
how can I derive the following function, I did use the command D
, but the result is not correct, or it is displayed "The 'G' function is not in the derivative table"
indi=function(s){if(s>=0 & s<1) return(1) else return(0)}
Kernel3 <- function(s) {(35/16)*(1-s^2)^3*indi(s)}
G(s) <- (s*Kernel3(s))
g <- D(quote(G(s)), "s")