# NOT RUN {
startDate <- as.Date("1990-01-01")
endDate <- as.Date("2005-01-01")
depVar <- c("end_rating")
indVars <-c("Macro1", "Financial1","Industry1")
pct <- 0.8
wgt <- "mCount"
ratingCat <- c("A","B", "C", "D", "E", "F", "G", "N")
lstCategoricalVars <- c("end_rating")
tuning <- "TRUE"
cost <- 100
gamma <- .1
cost.weights <- c(0.1, 10, 100)
gamma.weights <- c(0.01, 0.25, 0.5, 1)
kernelType <- "radial"
# }
# NOT RUN {
transData <- expandTransData(df,wgt)
# }
# NOT RUN {
svm_T<-transForecast_svm(transData, histData, predData_svm, startDate, endDate,
depVar,indVars, ratingCat, pct, tuning, kernelType,cost, cost.weights,
gamma, gamma.weights)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab