Displaying 3 results from an estimated 3 matches for "f_function".
Did you mean:
__function
1998 Sep 14
1
R-beta: Applying functions to vectors--question
...S, I don't know whether this is
(a) a design feature that is there for a good reason that I just
haven't figured out
(b) a bug in S that has been reproduced in R
or
(c) a bug unique to R.
Can someone help me out? Many thanks in advance
Marc Lipsitch
lipsitch at biology.emory.edu
> f_function(e) {
+
+ out_0
+
+ if(e>0)
+
+ out_sqrt(e)
+
+ out}
>
>
>
> f(-2)
[1] 0
>
> f(-2:2)
[1] 0
>
> f(2:-2)
Warning: NaNs produced in function "sqrt"
[1] 1.414214 1.000000 0.000000 NaN NaN
> f
function (e)
{
out <- 0
if (e...
2005 Feb 21
0
want to call R from aplatform written i strict ANSI C
...gt;n_i,*(TASK.NVAR));
n_x = min(SHAREX_PROB->n_x,*(TASK.NVAR));
n_d = min(SHAREX_PROB->n_d,*(TASK.NVAR));
m_f = SHAREX_PROB->m_f;
/* NOTE: w[0] is F */
*F = 0.0;
*Dev = 0.0;
if(m_f EQ 0) {for(i=0;i<n;i++) *F += w[i]*SHAREX_PROB->c[i];}
else {
for(i=0;i<m_f;i++) *F +=
f_function(SHAREX_PROB,SHAREX_PROB->x,SHAREX_PROB->du
al_x,i);
}
*Dev = SHAREX_PROB->Dev;
*gf = *F+Penalty*(*Dev);
} /* end of evaluator() */
void accelerator(int FIX_Flip,int ROW,double Penalty,DVECTOR LOWER,
DVECTOR UPPER,DVECTOR w_IN,DVECTOR w_OUT) {
double MILP_CALLS;
if(FIX...
2005 Feb 25
0
Fwd: want to call R from aplatform written i strict ANSI C
...gt;n_i,*(TASK.NVAR));
n_x = min(SHAREX_PROB->n_x,*(TASK.NVAR));
n_d = min(SHAREX_PROB->n_d,*(TASK.NVAR));
m_f = SHAREX_PROB->m_f;
/* NOTE: w[0] is F */
*F = 0.0;
*Dev = 0.0;
if(m_f EQ 0) {for(i=0;i<n;i++) *F += w[i]*SHAREX_PROB->c[i];}
else {
for(i=0;i<m_f;i++) *F +=
f_function(SHAREX_PROB,SHAREX_PROB->x,SHAREX_PROB->du
al_x,i);
}
*Dev = SHAREX_PROB->Dev;
*gf = *F+Penalty*(*Dev);
} /* end of evaluator() */
void accelerator(int FIX_Flip,int ROW,double Penalty,DVECTOR LOWER,
DVECTOR UPPER,DVECTOR w_IN,DVECTOR w_OUT) {
double MILP_CALLS;
if(FIX...