From 27a255ea7e95c1924f34a5d3aa0bcd39ad902b98 Mon Sep 17 00:00:00 2001
From: ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>
Date: Sat, 1 Apr 2006 04:41:28 +0000
Subject: Corrected the split of the drift.R file. Added example data
 IM1xIPC81.

git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@61 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
---
 R/drdata.R | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 R/drdata.R

(limited to 'R/drdata.R')

diff --git a/R/drdata.R b/R/drdata.R
new file mode 100644
index 0000000..9da7d96
--- /dev/null
+++ b/R/drdata.R
@@ -0,0 +1,39 @@
+drdata <- function(substances, experimentator = "%", db = "cytotox",
+    celltype="IPC-81",enzymetype="AChE",
+    organism="Vibrio fischeri",endpoint="Luminescence",whereClause="1",
+    ok="'ok','no fit'")
+{
+    library(RODBC) 
+    channel <- odbcConnect(db,uid="cytotox",pwd="cytotox",case="tolower")
+    slist <- paste(substances,collapse="','")
+    if (db == "cytotox") {
+        responsetype <- "viability"
+        testtype <- "celltype"
+        type <- celltype
+    } else {
+        if (db == "enzymes") {
+            responsetype <- "activity"
+            testtype <- "enzyme"
+            type <- enzymetype
+        } else {
+            responsetype <- "response"
+            testtype <- "organism"
+            type <- organism
+        }
+    }
+        
+    query <- paste("SELECT conc,",responsetype,",unit,experimentator,substance,",testtype,
+        ",ok FROM ", db, " WHERE substance IN ('",
+        slist,"') AND experimentator LIKE '",
+        experimentator,"' AND ",testtype," LIKE '",
+        type,"' AND ",
+        whereClause," AND ok in (",
+        ok,")",sep="")
+    if (db == "ecotox") query <- paste(query," AND type LIKE '",endpoint,"'",sep="")
+    data <- sqlQuery(channel,query)
+    odbcClose(channel)
+    names(data)[[1]] <- "dose"
+    names(data)[[2]] <- "response"
+    data$substance <- factor(data$substance,levels=substances)
+    return(data)
+}
-- 
cgit v1.2.3