Description Usage Arguments Value Examples
Retrieve features from a dataset
1 |
model |
an RBM object from the single.rbm or multi.rbm functions |
data |
matrix with input data |
a matrix with fatures
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Data availible at https://www.samverkoelen.com/data
data <- as.matrix(read.csv('mnist_sample.csv'));
#train RBM stack
model <- multi.rbm (hidden = c(150, 75, 30), data = data)
par(mfrow=c(1,2))
id <- 57
#Original
original <- matrix(data[ ,id], byrow = T, ncol = 16)
original <- t(original[16:1, 1:16]) #correct orientation
image(original, col = grey(seq(0, 1, 0.001)), main = 'Original')
#visible to hidden
features <- up.rbm(model, data)
#hidden back to visible
reconstructions <- down.rbm(model, features)
#Reconstruction
reconstruction <- matrix(reconstructions[id, ], byrow = T, ncol = 16)
reconstruction <- t(reconstruction[16:1, 1:16]) #correct orientation
image(reconstruction, col = grey(seq(0, 1, 0.001)), main = 'Reconstruction')
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.