Displaying 5 results from an estimated 5 matches for "bestmodel".
Did you mean:
restmodel
2011 Sep 22
1
escribir modelo libreria e1071 en un archivo
...reria e1071 para clasificar unos datos. Me gustaría poder guardar los modelos en el disco duro y no en memoria de R.
He visto que hay una función:
save : que guarda el modelo en memoria
y
load: que carga ese modelo
Ejemplo:
#saving the best model
save(calibrate.rf.model1, file=''bestmodel.rda'')
#loading the best model
#load(''bestmodel.rda'')
write(calibrate.rf.model1, file=''bestmodel.rda'')
Pero yo no quiero esto, lo que yo quiero es guardarlo en disco y poder leer ese archivo despues para aplicar el modelo a nuevos datos. Alguien podri...
2011 Oct 24
1
bestglm function and output in R
...;,header=T,row.names=1)
> names(bestglmtest)
[1] "acc" "age" "sex" "ctmin"
> library(bestglm)
> output<-bestglm(bestglmtest,IC="AIC",family=gaussian(link=identity))
Morgan-Tatar search since family is non-gaussian.
> bestglmtest$BestModel$coefficients
NULL
I believ my data is Gaussian so don't get the Morgan-Tatar search
"error/warning" which it threw out. Trying to find info on it was also not
successful but I did manage to find an article with example which also had
the same message and figured out it was not an err...
2018 Jun 01
0
Issue with batch forecasting of Time series data
...(train)
pred1 = forecast( fc1)
fit1_acry = accuracy(pred1)
fc2 = ets(train)
pred2 = forecast( fc2 )
fit2_acry = accuracy(pred2 )
MAPE = data.frame ( fit1_MAPE = fit1_acry[,'MAPE'],
fit2_MAPE = fit2_acry[,'MAPE']
)
best = which.min(MAPE)
BestModel = get(paste('fc',best,sep=""))
forecastoutput = rbind(data.frame(forecast(BestModel, h=1)) )
forecast_date = rbind(tail(input_data["DATE"][input_data["Server.Name"]==i],(1)))
row_index = which(Products==i)
output[row_index,1] = i
output[row_index,...
2018 May 27
0
Help required in Batch Forecasting
...(train)
pred1 = forecast( fc1)
fit1_acry = accuracy(pred1)
fc2 = ets(train)
pred2 = forecast( fc2 )
fit2_acry = accuracy(pred2 )
MAPE = data.frame ( fit1_MAPE = fit1_acry[,'MAPE'],
fit2_MAPE = fit2_acry[,'MAPE']
)
best = which.min(MAPE)
BestModel = get(paste('fc',best,sep=""))
forecastoutput = rbind(data.frame(forecast(BestModel, h=1)) )
forecast_date = rbind(tail(input_data["DATE"][input_data["Server.Name"]==i],(1)))
row_index = which(Products==i)
output[row_index,1] = i
output[row_index,...
2007 Oct 01
1
saving and loading complex objects
...enetically select predictor column space
result = intGa( response =response, ... ,
FUN = LM, monitor = F, monitorFun = nn.Monitor,
Evaluator = Std.Eval, wildCardPct = 0.10,
parm1 = 4, parm2 = 1, parm3 = 3 )
x.model=result$bestModel
SaveObj( x=x.model, nn=nn[i] )
rm(result,x.model)
} # end for
return( formulaLst )
} # end of allArimaVery Sincerely,Lloyd Lubet
[[alternative HTML version deleted]]