Displaying 5 results from an estimated 5 matches for "xyf".
Did you mean:
x0f
2010 Jun 02
1
how to label the som notes by the majority vote
...=T,
fill=T)
alex1<-alex[,c(1:257)]
levels(alex1$Label)
alex1$outcome<-as.numeric(alex1$Label)
alex1$outcome[1:20]
#self-organizing maps(unsupervised learning)
library("kohonen")
#SOM, the supervised learning, train the map using outcome as the class
variable.
set.seed(13)
final.xyf<- xyf(data=as.matrix(alex1[,c(1:256)]),
Y=classvec2classmat(alex1$outcome), xweight = 0.99, grid=somgrid(20, 30,
"hexagonal"))
outcome.xyf <- predict(final.xyf)$unit.prediction#get prediction
outcome.predict<- as.numeric(classmat2classvec(outcome.xyf)) #change matrix
to vectors...
2013 Jul 24
1
Help to improve prediction from supervised mapping using kohonen package
...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 <- predict(tc.xyf, newdata = scale(testing[-1]))
# Basic plot:
x <- seq(nrow(testing))
plot(x, testing[, "MEAS_TC"], type="l",...
2010 Apr 06
2
help in function in R akin to macro in SAS
Dear Whom it may concern,
I need help to figure the "macro" function in R: I need to plot the
different data sets by a plotxyf function, I want the title to be different
for different data set.
# get the data set
final.xyf<- xyf(data=as.matrix(my.final),
Y=classvec2classmat(final$outcome), xweight = 0.5, grid=somgrid(5, 4,
"hexagonal"))
#plot function
plotxyf<-function (data) {
plot(data, type="ma...
2010 Apr 23
4
Intersection for two curves
Does anyone know of a method that I can get the intersection where the red and blue curves meet i.e. the value on the x-axis?
x <- 1:10
y <- 10:1
plot(x,y)
abline(lm(y~x),col="blue")
abline(h=2.5,col="red")
Muhammad
2009 Jul 23
1
[PATCH server] changes required for fedora rawhide inclusion.
...GYZ1;-I7v9|AI20L{^(-laB<
zDrt@?l1)Tbx3V1qgL$m9s6t^O3M0v=lNDoJ2!FYdbCV-SMQvV<S3elQW3>Pkd02tD
zEZ!fpyVzXT*r}T_eY)@T-4*)B22jz;U7kZ3b|bz3Vokt78g$+nx*i at pm#xl5Y|v$w
zr6?cTpR12yHS_@{;wVU>uePbh?6yvAXMh*mweHmg9aci;_ZS=^(Qcg-JXU5D^bV at M
zxt4R|hs48G*s_Z!5+4}>VdfuNj9vRoT3rp at ANOm#GSGS<?XyF-two8|hT7ol`fOQz
z7j9_y<!>I at G{>(ysq*1?&GKT^{m?Fcxny&BG96C)e?)2kP=Eqp1m>4`*DT7YB3Hri
z!D8ux%+Xqv-$LeV;;I*Q+U1*R5r(o5jJcB9Fb(?h5Q6Kr6$94v{shy-zMvcLvL0&?
z at 8D?GxgfVVRXerU6iY*Z(G-9NjaK4q!cMQ;=D$d_>#DC-TNMtv>Ct9;^rfoI?W03N
zmUe0Dj=|nTy}*zY&_VX8p|rZrB*+z4yYg-ttRA^&a...