/*
**  Program ExTable.Ox
**
**  Purpose:
**    Example loading/saving tables
**
**  Version:
**    2     Simplified
**
**  Author:
**    Charles Bos
**
**  Date:
**    3/3/2012
*/
#include <oxstd.h>
#include <packages/oxutils/oxutils.h>

main()
{
  decl i, aPrFmt, arLabs, acLabs, mX, iK, mY, mSign, fh, ir;

  // Get the data from the database
  iK= 3;
  mX= rann(1000, iK);
  mY= meanc(mX)|varc(mX)|limits(mX)[:1][];

  aPrFmt= {"%7.3f", "%7.3f", "%7.3f"};
  acLabs= {"R1", "R2", "R3"};
  arLabs= {"$\\mu$", "$\\sigma^2$", "min", "max"};
  
  println ("\nOriginal table");
  print ("extable", "%r", arLabs, "%c", acLabs, mY);

  // Save the original table for later use
  println ("\nSaving table.tab");
  ir= savetab("output/table.tab", arLabs, acLabs, mY);
  
  // Add extra column to the table
  println ("\nAdd column to table.tab");
  mX= rann(1000, 1);
  mY= meanc(mX)|varc(mX)|limits(mX)[:1][];
  
  ir= savetab("output/table.tab", arLabs, "R4", mY, "a");
  ir= loadtab("output/table.tab", &arLabs, &acLabs, &mY);
  print ("extable", "%r", arLabs, "%c", acLabs, mY);

  // Add extra row  
  println ("\nAdd row to table.tab");
  ir= savetab("output/table.tab", "LL", acLabs, ones(1, 4), "a");
  ir= loadtab("output/table.tab", &arLabs, &acLabs, &mY);
  print ("extable", "%r", arLabs, "%c", acLabs, mY);
}