# Import data.
fname <- system.file("extdata", "finndiane.txt", package = "Numero")
dataset <- read.delim(file = fname)
# Set identities and manage missing data.
dataset <- numero.clean(dataset, identity = "INDEX")
# Prepare training variables.
trvars <- c("CHOL", "HDL2C", "TG", "CREAT", "uALB")
trdata <- numero.prepare(data = dataset, variables = trvars,
batch = "MALE", confounders = c("AGE", "T1D_DURAT"))
# Create a self-organizing map.
sm <- numero.create(data = trdata)
qc <- numero.quality(model = sm)
# Evaluate map statistics for all variables.
stats <- numero.evaluate(model = qc, data = dataset)
# Plot map colorings.
numero.plot(results = stats)
Run the code above in your browser using DataLab