Defines functions qrnn.rbf

Documented in qrnn.rbf

qrnn.rbf <-
function(x, x.basis, sigma)
    kern <- matrix(0, nrow=nrow(x), ncol=nrow(x.basis))
    for (k in seq(nrow(x.basis))){
        x.basis.test <- matrix(x.basis[k,], nrow=nrow(x),
                               ncol=ncol(x.basis), byrow=TRUE)
        kern[,k] <- exp(-apply(((x-x.basis.test)^2)/(2*sigma^2), 1, sum))

Try the qrnn package in your browser

Any scripts or data that you put into this service are public.

qrnn documentation built on June 29, 2018, 5:04 p.m.