# NOT RUN {
assay.df.melted <- assayMelt(assay.df = lognormAssay, exp.name = 'Experiment1')
assay.values <- assay.df.melted[assay.df.melted$DayOperator == 'D1Op1',]$value
#This function assumes that the data has already been transformed.
scp.df <- calcScpValues(assay.values = log10(assay.values), distrib = 'normal',
transf.method = 'log10')
# }
Run the code above in your browser using DataLab