Displaying 4 results from an estimated 4 matches for "newmcreg".
2010 Jan 12
0
[Solved][Code Snippets] Dropping Empty Regressors
...;EOM"]]
#SET IT ALL TO 0
sh2[[tmpname]][]<-FALSE
#SET The Proper Indice to TRUE
sh2[[tmpname]][z]<- TRUE
}
So to get rid of them (those empty useless regressors) I cooked up this:
###################################################
#Prune Empty Regressors (All false or all true)
# the newmcReg you see is a copy of the sh2 from earlier
# newmcReg = New Model Current Regressors
# sh2 later became cReg.
#
# Yes it makes my eyes bleed. in short we count all the trues
# and all the false and if they happen to be the same number
# as the length we know they are all true or false.
#
# the trick...
2010 Jan 07
1
Drop a part of an array\list\vector?
I did have a verbose description of why but rather then make everyone's eyes
bleed with useless details I ask the following :)
To make a long story short: How can I make newmcReg[[i]]["PreIO308"] go
away in the following list... er vector... no wait array.... dataframe....
awww crap...
summary(newmcReg[[i]])
UNITBUILD UNITDB ITBUILD ITDB
Mode :logical Mode :logical Mode :logical Mode :logical
FALSE:249 FALSE:249 FA...
2009 Jul 15
2
storing lm() results and other objects in a list
...seasonal=c(arma5.fit$arma[3],arma5.fit$arma[4],arma5.fit$arma[7])
#these Two are used for linearModel2 and linearModel4, Get only the
#regressors that surived step removal.
newcReg=cReg[match(names(linearModel2$coeff[-1]),names(cReg))]
newfReg=fReg[match(names(linearModel2$coeff[-1]),names(fReg))]
newmcReg=mcReg[match(names(linearModel2$coeff[-1]),names(mcReg))]
newmfReg=mfReg[match(names(linearModel2$coeff[-1]),names(mfReg))]
#Scenario 1 - All Regressors Left In
newFit1.b <- Arima(modelSource,order=arma1.fit$order,seasonal=list(order=arma1.fit$seasonal),xreg=mcReg,include.drift=F)
#Scenario 2 -...
2009 Dec 03
0
Problem with predict() and factors
...)
for(i in names(mcReg)) {
pairs(modelSource ~ .,mcReg[[i]], main=paste("Model - MIPS vs",i))
}
#Build the list to store our results
linearModel <- list()
residuals <- list()
arima_Fit <- list()
arima_AO <- list()
arima_IO <- list()
newcReg <- list()
newfReg <- list()
newmcReg <- list()
newmfReg <- list()
newFit <- list()
newForecast <- list()
# Following won't work until mcReg contains full variety
linearModel[[1]]=lm(modelSource ~ + UNITBUILD + UNITDB + ITBUILD + ITDB +
UATBUILD + UATDB + HOGANCODE + RCF + ReleaseST1 + ReleaseST2 + ReleaseBLA +
Small.Ba...