R/nMFI2Eset.R

In msuprun/bbeaR: an R package and framework for epitope-specific antibody profiling

nMFI2Eset <- function(nMFI.object){
  require(Biobase)
  # old name FromLuminexBinding2ExprsSet()
  pd<-as.data.frame(nMFI.object$pData)
  eset<-ExpressionSet(assayData=as.matrix(nMFI.object$nMFI))
  pData(eset)<-pd[sampleNames(eset),]
  return(eset)
}