set.seed(1)
concrete_model <- neuralnet( formula=strength ~ cement + slag + ash + water +
superplastic + coarseagg + fineagg + age,
data = train_data, hidden = c(9, 9, 2))
plot(concrete_model)
result <- compute( concrete_model, test_data[ , 1:8] )
result$net.result
head(result)
cor( result$net.result, test_data[ , 9] )
for ( i in 10:20) {
for ( j in 5:10) {
for ( k in 1:5) {
set.seed(1)
concrete_model <- neuralnet( formula=strength ~ cement + slag + ash + water +
superplastic + coarseagg + fineagg + age,
data = train_data, hidden=c( i, j, k ) )
result <- compute( concrete_model, test_data[ , 1:8] )
a <- cor( result$net.result, test_data[ , 9] )
print( paste( 'h1:' , i, 'h2:', j, 'h3:', k, a ) )
}
}
}