# NOT RUN {
data(Cleveland_small)
x <- molecularProfiles(Cleveland_small,"rna")[,1]
y <- molecularProfiles(Cleveland_small,"rna")[,2]
x_p <- rep(0.05, times=length(x))
y_p <- rep(0.05, times=length(y))
names(x_p) <- names(x)
names(y_p) <- names(y)
gwc(x,x_p,y,y_p, nperm=100)
# }
Run the code above in your browser using DataLab