Error in readRDS(file = "gsearslts_tutorial.RDS") : unknown input format

[LycheeArea]

if (calc) {

• gsearslts <- TF_Selection(GSDB = mDB, DErslt = DErslt, minSize = 5, nperm = 10000,
• qval = 0.05, compList = compList,
• nameFile = "gsearslts_tutorial")
• } else {
• gsearslts <- readRDS(file = "gsearslts_tutorial.RDS")
• } Error in readRDS(file = "gsearslts_tutorial.RDS") : unknown input format

[LycheeArea]

After redownloading, the data is ready.

[LycheeArea]

gsearslts <- TF_Selection(GSDB = mDB, DErslt = DErslt, minSize = 5, nperm = 10000,

• qval = 0.05, compList = compList,
• nameFile = "gsearslts_netAct") start calculating ...... ==================================================calculations finished !!!!!! Error in if (pi0 <= 0) { : missing value where TRUE/FALSE needed In addition: Warning messages: 1: In min(p) : no non-missing arguments to min; returning Inf 2: In max(p) : no non-missing arguments to max; returning -Inf 3: In min(p) : no non-missing arguments to min; returning Inf 4: In max(p) : no non-missing arguments to max; returning -Inf

[LycheeArea]

GSDB = hDB

[xuxiaodong111]

Same problem!