TABLE OF CONTENTS

miscUtils/repairfrailtypar [ Functions ]

NAME

    repairfrailtypar --- fix frailty parameters

FUNCTION

For identifiability, it is necessary to fix one of the frailty spline parameters at 0, and not include it in optimization and estimation routines. This function adds a 0 to a vector at a specified index.

SYNOPSIS

900 repairfrailtypar <- function(par, ind)

INPUTS

   par     a vector
   ind     integer index

OUTPUTS

   The input vector par, with a 0 inserted at its ind entry

SOURCE

903 {
904     if(ind == 1) return(c(0, par))
905     if(ind == length(par)) return(c(par, 0))
906     return(c(par[1:(ind - 1)], 0, par[ind:length(par)]))
907 }