Displaying 1 result from an estimated 1 matches for "somx".
Did you mean:
some
2013 Jul 24
1
Help to improve prediction from supervised mapping using kohonen package
...mple(nrow(somdata), nrow(somdata)*(2/3))
training <- somdata[inTrain, ]
testing <- somdata[-inTrain, ]
# Supervised kohonen map, where the dependent variable is MEAS_TC.
# Attempting to follow the examples in Wehrens and Buydens, 2007,
21(5), J Stat Soft.
# somdata[1] is the MEAS_TC variable
somX <- scale(training[-1])
somY <- training[[1]] # Needs to return a vector
# Train the map (not sure this is how it should be done):
tc.xyf <- xyf(data=somX, Y=somY, xweight=0.5, grid=somgrid(6, 6,
"hexagonal"), contin=TRUE)
# Prediction with test set:
tc.xyf.prediction <- pred...