search for: tscore

Sometimes, for specific models, I get this error from predict.gam in library mgcv: Error in complete.cases(object) : negative length vectors are not allowed Here's an example: model.calibrate <- gam(meansalesw ~ s(tscore,bs="cs",k=4), data=toplot, weights=weight, gam.method="perf.magic") > test <- predict(model.calibrate,newdata) Error in complete.cases(object) : negative length vectors are not allowed > The data is shown below: > toplot[,c("meansalesw&quo...

...wise !ccccc conditional covariances. An ending r means for !ccccc rest score, an ending t means for total score. parameter (maxitem=100,maxexmn=10000,maxcats=10,ncells=1001) !ccccc ncells must be maxitem*maxcats+1 integer nexmn,nitem,scoretemp,mscore integer respmat(maxexmn,maxitem) integer tscore(maxexmn) /maxexmn*0/ integer tstemp(maxexmn) /maxexmn*0/ integer natscore(ncells) /ncells*0/ integer natemp(ncells) /ncells*0/ integer i,j,k,l integer tcountt,tcountr,tcountt2,tcountr2 real*8 respmat2(maxexmn,maxitem) real*8 pisum(ncells),plsum(ncells),pilsum(ncells)...

...ariance of each column (gene) + + CV.train.neg <- as.data.frame(CV.train)[as.data.frame(CV.label.train)=="VEH",] # matrix of positive samples + CV.train.neg.mean <- apply(CV.train.neg,2,mean) # compute mean of each column (gene) + CV.train.neg.var <- apply(CV.train.neg,2,var) + + tscore <-(abs(CV.train.pos.mean-CV.train.neg.mean)/sqrt((CV.train.pos.num-1)*CV.train.pos.var+(CV.train.neg.num-1)*CV.train.neg.var))*sqrt(CV.train.pos.num*CV.train.neg.num*(CV.train.num-2)/CV.train.num) + index <- order(tscore, decreasing=TRUE) + CV.train=CV.train[,index[1:100]] + + svm.train<-s...

Hi all, My data genes [,1] [,2] [,3] [,4] [1,] 25 72 23 55 [2,] 34 53 41 33 [3,] 26 43 26 44 [4,] 36 64 64 22 [5,] 47 72 67 34 stu<-t.test(genes[,1:2],genes[,3:4]) > stu$p.value [1] 0.4198002 i get 1 pvalue for the entire col1:col2 Vs col3:col4. I am trying to get 5 p values for the 5 rows i have. I am trying to avoid a for loop coz my