Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----eval=FALSE---------------------------------------------------------------
# #Install
# install.packages('OSNMTF')
# #Load
# library(OSNMTF)
## ----eval=FALSE---------------------------------------------------------------
# install.packages('/path/to/file/OSNMTF.tar.gz',repos=NULL,type="source")
## ----eval=FALSE---------------------------------------------------------------
# simu_data = simu_data_generation()
## ----eval=FALSE---------------------------------------------------------------
# # Factorize the matrix with OSNMTF
# OSNMTF_res <- OSNMTF(simu_data,k=5,l=4)
# # Get the row coefficient matrix
# row_coef <- OSNMTF_res[[1]][[1]]
# # Get the association matrix
# asso_matrix <- OSNMTF_res[[1]][[2]]
# # Get the column coefficient matrix
# column_coef <- OSNMTF_res[[1]][[3]]
# # Get the row cluster results
# row_cluster <- OSNMTF_res[[2]][[1]]
# # Get the column cluster results
# column_cluster <- OSNMTF_res[[2]][[2]]
## ----eval=FALSE---------------------------------------------------------------
# # Specify your desired cluster number evaluation interval by your prior knowledge of the data
# ASR_matrix <- matrix(0,5,5)
# for (i in 1:5)
# {
# rankk <- i+2
# for (j in 1:5)
# {
# rankl <- j+2
# temp_res <- OSNMTF(simu_data,k=rankk,l=rankl)
# row_clu1 <- temp_res[[2]][[1]]
# col_clu1 <- temp_res[[2]][[2]]
# # MNSR_matrix[i,j] <- MNSR(row_clu1,col_clu1,simi_matr1)
# ASR_matrix[i,j] <- ASR(row_clu1,col_clu1,simu_data)
# }
# }
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.