@@ -199,7 +199,7 @@ RemCorrs <- function(ds,fDet,cutoff,outFile) {
199199
200200 # plot the correlatio plot before correlation removal
201201 CorrPlotFile <- paste(outFile ," .corrs.png" ,sep = ' ' )
202- png(height = 1200 , width = 1200 , pointsize = 25 , file = CorrPlotFile )
202+ png(height = 1200 , width = 1200 , pointsize = 25 , filename = CorrPlotFile )
203203 col1 <- rainbow(100 , s = 1 , v = 1 , start = 0 , end = 0.9 , alpha = 1 )
204204 corrplot(corrMat ,tl.cex = 3 ,title = " Initial feature correlation matrix" ,
205205 method = " circle" ,is.corr = FALSE ,# type="full",
@@ -1661,7 +1661,7 @@ PLSregWSel <- function(my.datf.train,my.datf.test,sCV,iSplit=1,fDet=F,outFile=""
16611661 # Define the CV conditions
16621662 ctrlw <- rfeControl(method = ' boot' , number = 25 ,saveDetails = T )# number=10,repeats=10
16631663 ctrl <- trainControl(method = sCV , number = 10 ,repeats = 1 ,# numebr=10,repeats=10,
1664- summaryFunction = defaultSummary ,savePred = T )
1664+ summaryFunction = defaultSummary ,savePredictions = T )
16651665
16661666 subsetsx <- seq(2 ,dim(my.datf.train )[2 ]- 1 , by = 10 )
16671667
0 commit comments