diff options
author | Christoph Helma <helma@in-silico.ch> | 2017-02-14 14:25:58 +0100 |
---|---|---|
committer | Christoph Helma <helma@in-silico.ch> | 2017-02-14 14:25:58 +0100 |
commit | 127380ef9189b58b1541b2a35989900003c26510 (patch) | |
tree | bef2017ad5c93f82e69a171c0c87d2298fabf171 /loael.Rmd | |
parent | 03ee143bbcdc6f97533ae9f4d3b47711fdae625b (diff) |
pls models, sim 0.5, no weighted average
Diffstat (limited to 'loael.Rmd')
-rw-r--r-- | loael.Rmd | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -313,7 +313,7 @@ experimental results within individual datasets and between datasets. ##### Intra dataset variability -```{r echo=T} +```{r echo=F} m.dupsmi <- unique(m$SMILES[duplicated(m$SMILES)]) s.dupsmi <- unique(s$SMILES[duplicated(s$SMILES)]) c.dupsmi <- unique(c$SMILES[duplicated(c$SMILES)]) @@ -326,10 +326,6 @@ m.dupnr <- length(m.dupsmi) s.dupnr <- length(s.dupsmi) c.dupnr <- length(c.dupsmi) -#m.dup -#m.dup$LOAEL -#m.dup$SMILES - m.dup$sd <- ave(m.dup$LOAEL,m.dup$SMILES,FUN=sd) s.dup$sd <- ave(s.dup$LOAEL,s.dup$SMILES,FUN=sd) c.dup$sd <- ave(c.dup$LOAEL,c.dup$SMILES,FUN=sd) |