# Create a dataset containing controls (which are named differently)
# from geninvitro dataset:
controldata<-SubsetData(data=geninvitro, x="name", x.cat=c("control", "Control",
"medium", "medium + BSA", "untreated"))
# Exclude controls (which are named differently) from geninvitro dataset:
invitrodata<-SubsetData(data=geninvitro, x="name", x.cat=c("control", "Control",
"medium", "medium + BSA", "untreated"), include=FALSE)
# Generate dose-response plots for geninvitro, with DNA STRAND BREAKS as
# the endpoint and concentrations measured in "ug/cm2" (plot is generated for
# each study provider, with different colours represent different
# experiments):
#
nmplot.ncat(data.nm=invitrodata, data.control=controldata,
id="experimentID", nano="name", response="value",
dose="concentration", end="endpoint", end.cat="DNA STRAND BREAKS",
unit="concentration_unit", unit.cat="ug/cm2", cat="studyprovider",
x.cat="experimentID", type="dose", control.opt="same", nrow=1,
ncol=1)
Run the code above in your browser using DataLab