### R code from vignette source 'vignettes/codelink/inst/doc/codelink.Rnw'
### Encoding: UTF-8

###################################################
### code chunk number 1: data
###################################################

library(codelink)

data(codelink.example)

codelink.example



###################################################
### code chunk number 2: plotMA
###################################################

plotMA(codelink.example)



###################################################
### code chunk number 3: plotDensity
###################################################

plotDensities(codelink.example)



###################################################
### code chunk number 4: createWeights
###################################################

w <- createWeights(codelink.example, type = list(FIDUCIAL = 0.01, NEGATIVE = 
0.1))

w[1:10,]