if (FALSE) {
df <- convert_rle_to_df(example_cov)
train_x <- df[,-c(1:4)]
train_y = c()
for (ii in 1:nrow(df)) {
seg_id = df$seg_id[ii]
sample_id = df$sample_id[ii]
train_y = c(train_y, example_diag[seg_id, sample_id])
}
trained_model <- train_iimi(train_x = train_x, train_y = train_y)
}
Run the code above in your browser using DataLab