data(thermo)
## react potassium feldspar in a closed system
  ## after Steinmann et al., 1994 and Helgeson et al., 1969
  basis(c("Al+3","H4SiO4","K+","H2O","H+","O2"),c(0,-6,-6,0,0,0))
  species(c("k-feldspar","muscovite","pyrophyllite","kaolinite","gibbsite"))
  a <- affinity(H4SiO4=c(-6,-2),"K+"=c(-3,8))
  diagram(a)
  basis("pH",4)
  species(1:5,c(-4,rep(-999,4)))
  tr <- transfer(550,dmode="coupled",plot=c(2,3),devmax=0.2)
  # plot the output from transfer
  draw.transfer(tr)
  # reset the plot layout
  layout(matrix(1))
  # note, the same calculation can be performed using
  # feldspar("closed")
  ## react APC2 from Saccharomyces cerevisiae
  ## to other proteins in the anaphase-promoting complex
  basis(c("CO2","H2O","NH3","H2","H2S"),c(-10,0,-4,-10,-7))
  species(c("APC1","APC2","APC5","CDC16","APC10","SWM1"),"YEAST")
  a <- affinity(CO2=c(-10,0),H2=c(-10,0))
  diagram(a,as.residue=TRUE)
  species(1:nrow(species()),-999)
  species("APC2_YEAST",0)
  tr <- transfer(510,ibalance="PBB",plot=c(1,4),dmode="coupled",devmax=0.15)
  # this calculation is also available with
  # apc("closed")Run the code above in your browser using DataLab