varinp.mf <- matrix(c(5, 2, 5),
                     nrow = 3, byrow = FALSE)
varout.mf <- matrix(c(5, 2, 5),
                     nrow = 3, byrow = FALSE)
var.mf <- cbind(varinp.mf, varout.mf)
range.data <- matrix(c(0,10), nrow=2)
num.labels <- matrix(c(1), nrow = 1)
names.variables <- c("Gaussian")
plotMF(object = list(var.mf = var.mf, range.data.ori = range.data,
                     num.labels = num.labels, names.variables = names.variables))