Displaying 1 result from an estimated 1 matches for "idexpr".
Did you mean:
bdexpr
2011 Mar 18
0
trouble in call of "texteval"
...:
> 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[,idexpr] =", linkFunctionsVector[idexpr]), echo = TRUE)}
+ }
+
+ ExpData = NULL
+ for(idpar in 1: numPar){
+ Ex...