R/partialDependenceDataset.R

Defines functions partialDependenceDataset

#
# 
#
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)
}
brandmaier/semtree documentation built on Sept. 7, 2024, 10:38 p.m.