# NOT RUN {
# Import data.
fname <- system.file("extdata", "finndiane.txt", package = "Numero")
dataset <- read.delim(file = fname)
# Show original data characteristics.
print(summary(dataset))
# Detect binary columns.
ds <- nroPreprocess(dataset, method = "")
print(attr(ds,"binary"))
# Centering and scaling cholesterol.
ds <- nroPreprocess(dataset$CHOL)
print(summary(ds))
# Centering and scaling.
ds <- nroPreprocess(dataset)
print(summary(ds))
# Tapered ranks.
ds <- nroPreprocess(dataset, method = "tapered")
print(summary(ds))
# Standard normal ranks.
ds <- nroPreprocess(dataset, method = "normal")
print(summary(ds))
# }
Run the code above in your browser using DataLab