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...