Nothing
#
#
#
partialDependenceDataset <- function(covarFrame, refCovar, xgrid, plotRange = NULL){
#
covars <- colnames(covarFrame)
refIndex <- which(covars == refCovar)
refVar <- covarFrame[,refIndex]
#
outFrame <- covarFrame
outFrame[,refIndex] <- xgrid[1]
numGrid <- length(xgrid)
for (i in 2:numGrid){
upFrame <- covarFrame
upFrame[,refIndex] <- xgrid[i]
outFrame <- rbind.data.frame(outFrame,upFrame)
}
return(outFrame)
}
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.