3
function preprocess () {
6
echo (' require(eRm)\n');
9
function calculate () {
11
mpoints = getValue("mpoints");
12
groups = getValue("groups");
13
group_vec = getValue("group_vec");
14
design = getValue("design");
15
design_mtx = getValue("design_mtx");
16
etastart = getValue("etastart");
17
etastart_vec = getValue("etastart_vec");
18
stderr = getValue("stderr");
19
sumnull = getValue("sumnull");
21
echo ('estimates.lpcm <<- LPCM(' + getValue("x"));
23
if(design == "matrix") echo (", W="+design_mtx);
24
if(mpoints > 1) echo (", mpoints="+mpoints);
25
if(groups == "contrasts") echo (", groupvec="+group_vec);
26
if(stderr != "se") echo (", se=FALSE");
27
if(sumnull != "sum0") echo (", sum0=FALSE");
28
if(etastart == "startval") echo (", etaStart="+etastart_vec);
32
function printout () {
33
echo ('rk.header ("LPCM parameter estimation")\n');
34
echo ('rk.print (estimates.lpcm)\n');