# NOT RUN {
data(vbetaFA)
vbetaFA <- addlayer(vbetaFA, 'expressed')
layername(vbetaFA)
ee <- exprs(vbetaFA)
layer(vbetaFA) <- 'expressed'
exprs(vbetaFA) <- (ee>0)*1
layer(vbetaFA) <- 'Et'
layername(vbetaFA) <- 'et'
layername(vbetaFA)
nlayer(vbetaFA)
# }
Run the code above in your browser using DataLab