## Not run:
# if (.Platform$OS.type != "windows") { # ff overwrites failing 5.IX.12
# nsFilter2 = function(sms, var.cutoff=.5) {
# alliq = apply(exprs(sms),1,IQR)
# qs = quantile(alliq,var.cutoff, na.rm=TRUE)
# sms[ which(alliq > qs), ]
# }
# thefilt = function(x) GTFfilter( nsFilter2 (clipPCs(x, 1:10), var.cutoff=.95 ), lower=.05 )
# tfile = tempfile()
# tfold = dir.create(tfile)
# t1 = best.trans.eQTLs( "GGdata", ~1, as.character(20:22), "22",
# geneannopk="illuminaHumanv1.db", snpannopk= snplocsDefault(),
# smFilter=thefilt, snploadprefix="", snplocprefix="ch", targdirpref=tfile)
# tt1 = transTab(t1)
# tt1o = tt1[ order(tt1[,"sumchisq"], decreasing=TRUE), ][1:10,]
# tt1o
# }
# ## End(Not run)
Run the code above in your browser using DataLab