library(devtools)
load_all("c:/Users/kctw748/working_copies/pmxtricks")
res1 <- NMscanData("c:/Users/kctw748/OneDrive/azd5363/poppk_20190127_Ph1Ph2Pooled_explore/Models/BaseModel/run7161.lst")
names(res1)
attributes(res1)
str(res1)
res2 <- NMscanData("c:/Users/kctw748/OneDrive/azd5363/poppk_20190127_Ph1Ph2Pooled_explore/Models/BaseModel/run7110.lst")
resall <- rbind(res1,res2)
resall$pop
## grp
res1 <- NMscanData("c:/Users/kctw748/OneDrive/azd5363/poppk_20190127_Ph1Ph2Pooled_explore/Models/BaseModel/run7161.lst",col.grp="DOSE")
##
res1 <- NMscanData("c:/Users/kctw748/OneDrive/azd5363/poppk_20180813_Ph1Ph2Pooled_final/Models/baseModel/run416t14.lst",col.grp="DOSE")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.