Displaying 1 result from an estimated 1 matches for "ytestsampls2".
Did you mean:
ytestsampls
2000 Sep 11
0
SAMPLS R implementation : pbm with algorithm application
...{ s<-s- ( as.numeric( (t(t)%*%s) / (t(t)%*%t) ) *t )
stest<-stest-( as.numeric( (t(t)%*%s) / (t(t)%*%t) ) *ttest )
}
ttest<-stest
t<-s
t2<-t(t)%*%t
beta<-t(t)%*%yh
beta<-as.numeric(beta/t2)
ytestsampls<-ytestsampls + as.numeric(beta)*(ttest)
yh<-yh-(beta*t)
}
ytestsampls2<-ytestsampls+mean(ye)
-------------------
When lv (number of variables extracted ) is 1 , no problem the y
predicted (ytestsampls2) is the same as when using the R module pls
(library(pls)). But when using lv=2, there is a difference , thus an
error in my code that must come from the update...