# 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)
# Frequency of each unique value of the dose for each nanomaterial
# in geninvitro dataset, with DNA STRAND BREAKS as the toxicity endpoint
# and only observations with concentration measured in "ug/cm2" are considered:
#
Frtab.sub(data.nm=invitrodata, data.control=controldata, nano="name",
end="endpoint", end.cat="DNA STRAND BREAKS", id="experimentID",
dose="concentration", unit="concentration_unit", unit.cat="ug/cm2",
control.opt="same", x="concentration")
Run the code above in your browser using DataLab