require("minfi", quietly = TRUE)

options(warn = -1)
options("download.file.method"="wget")

args <- commandArgs(trailingOnly = TRUE)

input = args[1]
output = args[2]

GRset <- get(load(input))

blocks <- blockFinder(GRset, design, coef = 2, what = c("Beta", "M"),
            cluster = NULL, cutoff = NULL,
            pickCutoff = FALSE, pickCutoffQ = 0.99,
            nullMethod = c("permutation","bootstrap"),
            smooth = TRUE, smoothFunction = locfitByCluster,
            B = ncol(permutations), permutations = NULL,
            verbose = TRUE)

write.table(blocks, output)