TracNav(xQTL)?

xQTL workbench - Cheat sheet for R scripting

> Downloading

Retrieve annotations, all attributes

find.marker()
find.individual()
find.investigation()

Retrieve annotations, specific attributes

find.marker()[,c("name")]
find.individual()[,c("name","investigation_name")]
find.investigation()[,c("id","name")]

Get a simple overview of all data matrices

find.data()[,c("id","name","investigation","investigation_name")]

Retrieve a data matrix

dataId <- 0
data <- downloadmatrixascsvCURL(dataId)

> Uploading

Add annotations

invId <- 0
add.individual(name="testIndv", investigation_id=invId)
add.marker(name="testMarker2", cm="11.3", bpstart="456237", investigation_id=invId)

Add a completely new data matrix, including annotations

invId <- 0
data <- NULL
data <- rbind(data, c("A", "B"))
data <- rbind(data, c("B", "A"))
marker1 = add.marker(name="myMarker1", cm="10.0", investigation_id=invId)
marker2 = add.marker(name="myMarker2", cm="20.0", investigation_id=invId)
ind1 = add.individual(name="myInd1", investigation_id=invId)
ind2 = add.individual(name="myInd2", investigation_id=invId)
colnames(data) <- c("myInd1", "myInd2")
rownames(data) <- c("myMarker1", "myMarker2")
add.datamatrix(data, name="myResults", investigation_id=invId, rowtype="Marker", coltype="Individual", valuetype="Text")

Upload a file

uri <- paste(dbpath,"/uploadfile",sep="")
path <- "testimage.png"
postForm(uri,investigation_name=investigationname, name="my_image", type="InvestigationFile", file=fileUpload(filename=path), style='HTTPPOST')

> Automized xQTL analysis

Get a parameter from server

size <- getparameter("size",jobparams)

Do a status update

report(2,"Loading 5%...")