search for: linkfunctionsvector

Displaying 1 result from an estimated 1 matches for "linkfunctionsvector".

2011 Mar 18
0
trouble in call of "texteval"
...1" I get the right result. Apparently "texteval" is not working when used called by another function. Here is a simple example: > library(session) > library(compositions) The following object(s) are masked from 'package:robustbase': > ExpandData1 <- function(Data,linkFunctionsVector,numPar) + { +   attach(as.data.frame(Data)) +   EvalData = array(0, c(nrow(Data),length(linkFunctionsVector) ) ) +   for(idexpr in 1: length(linkFunctionsVector)) { +   if(linkFunctionsVector[idexpr] == "1"){ EvalData[,idexpr] = rep(1,nrow(Data))} +   else{  texteval(paste("EvalData...