# NOT RUN {
{
## generate sparse data from the toy model of CIDR
sparse.data <- data.frame(g.1 = c(0, 5, 0, 6, 8, 6, 7, 7), g.2 = c(5, 0, 0, 0, 5, 7, 5, 7))
## with low-dimensional data, pca is uncessary
bossa.change <- BossaSimi(sparse.data, is.pca = FALSE)
## data after normalization
data.after <- bossa.change$U.score.non.pca
## similarity matrix of normalized data
data.simi <- bossa.change$bossa.simi
}
# }
Run the code above in your browser using DataLab