[BACK]Return to hgm.so3nc.R CVS log [TXT][DIR] Up to [local] / OpenXM / src / R / r-packages / hgm / R

File: [local] / OpenXM / src / R / r-packages / hgm / R / hgm.so3nc.R (download)

Revision 1.5, Sat Mar 22 00:15:40 2014 UTC (10 years, 3 months ago) by takayama
Branch: MAIN
CVS Tags: RELEASE_1_3_1_13b
Changes since 1.4: +2 -2 lines

R function names are changed following style-ja.txt.
R file names are not changed to keep changelogs. For example,
hgm.so3nc.R should be tk_hgm.so3nc.R and it will be changed in a future.
Note that names of exporting function names should be listed in the NAMESPACE file.

# $OpenXM: OpenXM/src/R/r-packages/hgm/R/hgm.so3nc.R,v 1.5 2014/03/22 00:15:40 takayama Exp $
"hgm.tk.so3nc" <-
function(a=1,b=2,c=3,t0=0.0,q=1,deg=0) { 
#  library.dynam("mypkg",package="mypkg",lib.loc="./");
  if (!is.loaded("hgm")) library.dynam("hgm",package="hgm",lib.loc=NULL);
  .C("so3_main",as.double(a),as.double(b),as.double(c),
     as.double(t0),
     as.integer(q),as.integer(deg),
     retv=as.double(0),PACKAGE="hgm")$retv
}