R/QresidualsMUS.R

Defines functions QresidualsMUS

Documented in QresidualsMUS

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

        print("Transcription Factor not included")

    }else{

        slot(model,"model")<-get(ls(envir=musQresiduals)[which(paste("model",nameTF,sep="")==ls(envir=musQresiduals))],envir=musQresiduals)

    }

    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.