# 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 controls for each nanomaterial in geninvitro dataset
# with DNA STRAND BREAKS as the toxicity endpoint and concentration
# measured in "ug/cm2":
#
FrCtrl(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")
# Frequency of controls for each cell type in each nanomaterial
# (in geninvitro dataset) with DNA STRAND BREAKS as the toxicity
# endpoint and concentration measured in "ug/cm2":
#
FrCtrl(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",
vars="celltype")
Run the code above in your browser using DataLab