Displaying 1 result from an estimated 1 matches for "gtm_trn".
2010 Mar 31
2
Generative Topographic Map
...l(X)) {
for(j in 1:nrow(X)) {
X[j,i] <- RANDU()
}
}
for(i in 1:ncol(MU)) {
for(j in 1:nrow(MU)) {
MU[j,i] <- RANDU()
}
}
sigma <-1
FI <- gtm_gbf(MU,sigma,X)
W <- gtm_ri(T,FI)
Y= FI%*%W
b = gtm_bi(Y)
lambda <- 0.001
for (m in 1:15) {
trnResult = gtm_trn(T, FI, W, lambda, 1, b, 2,quiet = TRUE, minSing = 0.01)
W = trnResult$W
b = trnResult$beta
Y = FI %*% W
}
I ran the above script on my own data representing 1969 samples of 7 dihedral angles of a folding molecule (attached.
Upon running the 1st iteration of the training function "...