Browse code

Fixed Selenium

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/Rdisop@45700 bc3139a8-67e5-0310-9ffc-ced21a209358

s.neumann authored on 02/04/2010 21:19:15
Showing 3 changed files

... ...
@@ -1,6 +1,7 @@
1 1
 2010-04-02  Steffen Neumann	<sneumann@ipb-halle.de>
2 2
 	* added Selenium to list of elements
3 3
 	* added Cobalt to list of elements
4
+	* fixed Selenium abundances and masses
4 5
 
5 6
 2010-02-08  Steffen Neumann	<sneumann@ipb-halle.de>
6 7
 	* added parameter maxisotopes to getMolecule() and decompose*()
... ...
@@ -1,6 +1,6 @@
1 1
 Package: Rdisop
2 2
 Title: Decomposition of Isotopic Patterns
3
-Version: 1.7.3
3
+Version: 1.7.4
4 4
 Date: 2010-04-02
5 5
 Author: Anton Pervukhin <apervukh@minet.uni-jena.de>, Steffen Neumann <sneumann@ipb-halle.de> 
6 6
 Maintainer: Steffen Neumann <sneumann@ipb-halle.de>
... ...
@@ -116,8 +116,8 @@ initializePSE <- function() {
116 116
     mo <- list(name="Mo", mass=91, isotope = list(	mass=c(0.906809, 0.0, 0.9050853, 0.9058411, 0.9046785, 0.9060205, 0.905054073, 0.0, 0.907477),
117 117
 				abundance=c(0.1484, 0.0, 0.0925, 0.1668, 0.0955, 0.2413, 0.0, 0.0963)))
118 118
 
119
-    se <- list(name="Se", mass=79, isotope = list(	mass=c(73.9224746, 74, 75.9192120, 76.9199125, 77.9173076, 78, 79.9165196, 81.9166978)-74,
120
-                                   abundance=   c( 0.89     ,  0.0,  9.37,       7.63,      23.77,       0.0, 49.61,       8.73)))
119
+    se <- list(name="Se", mass=74, isotope = list(	mass=c(73.9224746, 74,   75, 75.9192120, 76.9199125, 77.9173076, 79, 79.9165196, 81, 81.9166978)-74,
120
+                                                   abundance=c( 0.89     ,  0,    0,  9.37,       7.63,      23.77,       0, 49.61     ,  0,  8.73)))
121 121
 
122 122
     list(c,h,d,n,o,p,s, na, k, cl, br, f, i, fe, mg, ca, cd, hg, zn, cu, ni, mn, mo, se, co)
123 123
 }