2
function preprocess () {
3
// we'll need the eRm package, so in case it's not loaded...
8
function calculate () {
9
// let's read all values into php variables for the sake of readable code
10
$mpoints = getRK_val("mpoints");
11
$groups = getRK_val("groups");
12
$group_vec = getRK_val("group_vec");
13
$design = getRK_val("design");
14
$design_mtx = getRK_val("design_mtx");
15
$etastart = getRK_val("etastart");
16
$etastart_vec = getRK_val("etastart_vec");
17
$stderr = getRK_val("stderr");
18
$sumnull = getRK_val("sumnull");
20
?>estimates.lltm <<- LLTM(<? getRK("x");
21
// any additional options?
22
if($design == "matrix") echo(", W=".$design_mtx);
23
if($mpoints > 1) echo(", mpoints=".$mpoints);
24
if($groups == "contrasts") echo(", groupvec=".$group_vec);
25
if($stderr != "se") echo(", se=FALSE");
26
if($sumnull != "sum0") echo(", sum0=FALSE");
27
if($etastart == "startval") echo(", etaStart=".$etastart_vec);
31
function printout () {
33
rk.header ("LLTM parameter estimation")
34
rk.print (estimates.lltm)
b'\\ No newline at end of file'