Version 4 (modified by 13 years ago) (diff) | ,
---|
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%...")