# NOT RUN {
motif.obj <- GetMotifObject(object = atac_small)
SetMotifData(object = motif.obj, slot = 'data', new.data = matrix())
SetMotifData(object = atac_small[['peaks']], slot = 'data', new.data = matrix())
motif.matrix <- GetMotifData(object = atac_small)
SetMotifData(object = atac_small, assay = 'peaks', slot = 'data', new.data = motif.matrix)
# }
Run the code above in your browser using DataCamp Workspace