Displaying 2 results from an estimated 2 matches for "predvalues".
2010 Mar 18
2
aumentar tamaño de memoria a mas de 4Gb
...ame
no_elements1<-as.integer(toString(input$para1[1]))
no_elements2<-as.integer(toString(input$para2[1]))
# increasing the memory limit to 4 MB
memory.limit(size=4000)
for (i in 1:no_elements1) {
input_name<-toString(input$para1[i+1])
predict<-read.table(input_name, header=TRUE)
predValues<-predict(calibrate.rf, predict)
predValues<-as.numeric(predValues)
output_name<-toString(output$para2[i+1])
write.table(predValues, output_name, row.names=FALSE, col.names=output_name)
}
Lo que muestra la funcion str() es lo siguiente:
> str(output)
''data.frame''...
2010 Mar 16
4
clasificacion support vector machines (package e1071)
...UE)
calibrate$calibration<-as.factor(calibrate$calibration)
calibrate.rf<-svm(calibration~B14+B15+B16, data=calibrate, cost=100, gamma=1)
predict<-read.table("validation.txt", header=TRUE)
memory.limit(size=4000)
#hasta ahí todo bien, pero al hacer la prediccion es donde da fallo
predValues<-predict(calibrate.rf, predict)
#a partir de esa line me dice lo siguiente:
#Error en eval(expr, envir, enclos) : objeto ''B14'' no encontrado
#supongo que existe algún conflicto con el formato de validation y la salida de la funcion svm
El archivo validation es una columna con...