require("MEET")
data(DrosophilaDivergence)
model<-list()
model$D<-iicc[["a1"]]$model$parameterModel$D
model$HXmax<-iicc[["a1"]]$model$parameterModel$HXmax
model$correctioc_1rOrdre<-iicc[["a1"]]$model$parameterModel$correction_1rOrdre
model$Entropy<-iicc[["a1"]]$model$parameterModel$HX
model$Mperfil<-iicc[["a1"]]$model$parameterModel$Mperfil
model$interA<-iicc[["a1"]]$model$parameterModel$interA
model$interB<-iicc[["a1"]]$model$parameterModel$interB
model$Divergence<-iicc[["a1"]]$model$model
test<-MIread(training.set=iicc[["a1"]]$Transcriptionfactor, val.set=iicc[["a1"]]$Transcriptionfactor[1,],iicc=model)
Run the code above in your browser using DataLab