##single row estimation without prior gene association information, regression is done by "sse"##
data(sos.data)
X<-sos.data
X<-as.matrix(X)
P.known<-matrix(round(runif(nrow(X)*ncol(X), min=0, max=1)), nrow(X), ncol(X))
restK=rep(ncol(X)-1, nrow(X))
topD = round(0.6*nrow(X))
topK = round(0.5*nrow(X))
result<-A.estimation.Srow(r=1,cMM.corrected = 0, pred.net= NULL,X,P.known, topD, restK,
cFlag="sse",sup.drop = -1, noiseLevel=0.1)
result$A.row
##single row estimation with prior gene association information, regression is done by "geo"###
pred.net<-matrix(round(runif(nrow(X)*nrow(X), min=0, max=1)), nrow(X), ncol(X))
result<-A.estimation.Srow(r=1,cMM.corrected = 1, pred.net,X,P.known,topD, restK,
cFlag="geo",sup.drop = -1, noiseLevel=0.1)
result$A.row
Run the code above in your browser using DataLab