R/DivergenceMUS.R

Defines functions DivergenceMUS

Documented in DivergenceMUS

DivergenceMUS<-function(nameTF){
    require(MEET)
    musdivergence<-new.env()
    data("MusDivergence",envir=musdivergence)
	model<-new("Model")
   
    if (is.na(summary(paste("iicc",nameTF,sep="")==ls(envir=musdivergence))["TRUE"])=="TRUE"){

        print("Transcription Factor not included")
        model<-NULL

    }else{

    r<-slot(model,"model")<-get(ls(envir=musdivergence)[which(paste("iicc",nameTF,sep="")==ls(envir=musdivergence))],envir=musdivergence)
    r$model$Transcriptionfactor<-r$Transcriptionfactor
    slot(model,"model")<-r$model
}


    
    return(model)
    
}

Try the MEET package in your browser

Any scripts or data that you put into this service are public.

MEET documentation built on May 2, 2019, 5:52 p.m.