Displaying 1 result from an estimated 1 matches for "gtm_gbf".
Did you mean:
gtm_bi
2010 Mar 31
2
Generative Topographic Map
...L <- 3
X <- matrix(nrow=nrow(T),ncol=3,byrow=TRUE)
MU <- matrix(nrow=round(nrow(T)/5), ncol=L)
for(i in 1:ncol(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...