search for: ntest

...r of dates that I want to converted to Date class so I can extract the month > test.date [1] 14/05/2012 14/05/2012 14/05/2012 14/05/2012 14/05/2012 14/05/2012 [7] 14/05/2012 14/05/2012 14/05/2012 14/05/2012 201 Levels: 01/10/2012 01/11/2012 01/12/2012 02/07/2012 ... 28/09/2012 I use code below ntest.date<-as.Date(test.date,'%d/%m/%y') but the output has the wrong year, and the reverse order ntest.date [1] "2020-05-14" "2020-05-14" "2020-05-14" "2020-05-14" "2020-05-14" [6] "2020-05-14" "2020-05-14" "2020-0...

Hello, I've a test system with postfix (SMTP), dovecot (IMAP only) and covecot-LDA (MDA) under FreeBSD-6.1. Currently everything works fine. But I wasn't able to install dovecot-sieve from the CVS. Does anyone has a small documentation howto install dovecot-sieve on FreeBSD. Thanks. -- Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen! Ideal f?r Modem und ISDN:

...t;- sapply(test.df[,factor.cols, drop=F], levels) cat("test.levels:\n"); print(test.levels) no.levels <- sapply(sapply(data.df[,factor.cols, drop=F], levels), length) cat("no.levels:\n"); print(no.levels) } # Run it with two factors and again with 1, Output below cat("\nTest 2 factors:\n") getLevels(test.df, c(1,2), 4) cat("\nTest 1 factor:\n") getLevels(test.df, c(1), 4) Test 2 factors: > getLevels(test.df, c(1,2), 4) test.levels= $AA [1] "A" "B" $BB [1] "C" "D" "E" no.levels=AA BB 2 3 > cat...

Hello ! I have a quick question about loops. For example, I have a 1 * 1 square and its inscribed circle tangent i, whose radius, of course, is also 1. The loop here is as the following: generate n points, say 5, in the square randomly repeatedly until we have five in total in the circle, then we stop, otherwise we continue. I do not know how ! Help me Please ~ Thank you very much for

I have a dataset of 10000 records which I want to use to compare two prediction models. I split the records into test dataset (size = ntest) and training dataset (size = ntrain). Then I run the two models. Now I want to shuffle the data and rerun the models. I want many shuffles. I know that the following command sample ((1:10000), ntrain) can pick ntrain numbers from 1 to 10000. Then I just use these rows as the training dataset....

..., depVar, IndepVar1 Period, indepVar1, IndepVar2 Period, indepVar2 Jan 1998,708,Jan 1998,495,Jan 1998,245.490 Feb 1998,670,Feb 1998,421.25,Feb 1998,288.170 Mar 1998,642.5,Mar 1998,395,Mar 1998,254.950 Apr 1998,610,Apr 1998,377.5,Apr 1998,230.640 : > (nrowDepVar <- nrow(depVar)) [1] 545 > (nTest <- nInstance + nHorizon - 1) #number of latest points reserved for testing [1] 13 > (nTrain <- nrowDepVar - nTest) [1] 532 First I use auot.arima to find the best (p,d,q). > modArima <- auto.arima(depVar[1:nTrain,], trace=TRUE) ARIMA(2,1,2) with drift : 4402.637 ARIMA(0,...

...m I doing wrong ? > library(mlbench) > library(randomForest) > data(Soybean) > test <- sample(1:683, 150, replace=F) > sb.rf <- randomForest(Class~., data=Soybean[-test,]) > sb.rf.pred <- predict(sb.rf, Soybean[test,]) Error in matrix(t1$countts, nr = nclass, nc = ntest) : No data to replace in matrix(...) I did it the same way with rpart and all worked fine : > library(rpart) > sb.rp <- rpart(Class~., data=Soybean[-test,]) > sb.rp.pred <- predict(sb.rp, Soybean[test,], type="class") Thank you all for any advice you can give...

...lt;- seq(1, nSample) if( CVtype == "LOO" ) { CVnum <- nSample } else { if( CVnum == 0 ) { CVnum <- nSample } } ## vector for test error and number of tests ErrVec <- vector( length=length(ladder)) names(ErrVec) <- paste("Lev_", ladder, sep="") nTests <- 0 SelFreq <- matrix( 0, nrow=nGene, ncol=length(ladder)) colnames(SelFreq) <- paste("Lev_", ladder, sep="") ## for each CV for( i in 1:CVnum ) { ## split data if( CVtype == "LOO" ) { TestInd <- i TrainInd <- SampInd[ -TestInd] } else {...

Hi all, are there any pitfalls known for the migration from 2.0.18 to 2.1? Can I simply stop dovecot, make install and start again? --Frank Elsner

...he same error, since the issue has to do with an import): envtest <- function() { dat <- data.frame(x = 0, y = 0) f <- factor(c("a", "b")) # Print the starting data cat("\nf : ") cat(f) cat("\n\nTests with %in% operator ----------------------------") # OK cat('\n"x" %in% Names(y ~ x, data = dat) : ') cat("x" %in% Names(y ~ x, data = dat)) # OK: Save boolean values to idx, then use f[idx] cat('\nidx <- "x" %in% Names(y...

Hi, I am starting to learn using libvirt with kvm on CentOS 6. Just used this command to start a guest: virt-install -ntest -r1024 --vcpus=1 -c/var/lib/libvirt/images/CentOS-6.0-x86_64-netinstall.iso --os-type=linux --os-variant=rhel6 --disk vol=kvmguests/test --vnc -v --virt-type=kvm --check-cpu --prompt --arch=x86_64 Then I found out that I misconfigured vnc. And I do not know how to gracefully stop qemu. So I kille...

...,?????? marg2, ??? "\ncond12 =",????? cond12, ??? "\ncond21 =",????? cond21, ??? "\nCovariance matrix:",vb.method, ??? "\nWeighted =",??????? weighted, ??? "\nAt means =",??????? mean, ??? "\nProb x 100 =",????? times100, ??? "\ntesting ="????? ,?? testing, ??? "\nuse_bb_and_vbb = ",use_bb_and_vbb, ??? "\nsample size =",???? length(y1),"\n") if (!resampling) cat("\nSEs by delta method","\n") if? (resampling) cat("\nSEs K-R resampling with",ndraws,"draws\n&q...

...nd12 =",????? cond12, > ??? "\ncond21 =",????? cond21, > ??? "\nCovariance matrix:",vb.method, > ??? "\nWeighted =",??????? weighted, > ??? "\nAt means =",??????? mean, > ??? "\nProb x 100 =",????? times100, > ??? "\ntesting ="????? ,?? testing, > ??? "\nuse_bb_and_vbb = ",use_bb_and_vbb, > ??? "\nsample size =",???? length(y1),"\n") > if (!resampling) cat("\nSEs by delta method","\n") > if? (resampling) cat("\nSEs K-R resampling with",nd...

...2, >> ???? "\ncond21 =",????? cond21, >> ???? "\nCovariance matrix:",vb.method, >> ???? "\nWeighted =",??????? weighted, >> ???? "\nAt means =",??????? mean, >> ???? "\nProb x 100 =",????? times100, >> ???? "\ntesting ="????? ,?? testing, >> ???? "\nuse_bb_and_vbb = ",use_bb_and_vbb, >> ???? "\nsample size =",???? length(y1),"\n") >> if (!resampling) cat("\nSEs by delta method","\n") >> if? (resampling) cat("\nSEs K-R resampli...

Hello, I am trying to call sendmail from within R via system(). As sendmail reads from STDIN, I need to pass a multiline input as an argument. E.g. (not working): system('sendmail -f xxx at swing.be -t yyy at swing.be\ntest\n.\n') I tried a lot of ways to type the EOL characters, but cannot get them work the right way. This leads to several problems. For instance, R waits for me to enter <control-D> at the end of the sequence. Thanks for any help. -- Nicolas Mazziotta The contents of this e-mail, in...

...SSall <-sum(lm1$model[,2]^2) + sum(lm2$model[,2]^2) SSprod <-sum(lm1$model[,2]^2) * sum(lm2$model[,2]^2) F.val <-(as.numeric(coefficients(lm1)[2]) - as.numeric(coefficients(lm2) [2]))^2/((SSall/SSprod)*sigma) p.val <-1-pf(F.val, 1, (lm1$df.residual + lm2$df.residual-4)) cat("\n\nTest for equality between two regression slopes\n\n") cat("\nCoefficients model 1:\n\n") print(coef1) cat("\nCoefficients model 2:\n\n") print(coef2) cat("\nF-value on 1 and", lm1$df.residual + lm2$df.residual-4, "degrees of freedom:" ,F.val, "\n&quot...

...rid") and had the following code, where I'd mis-typed 1,3 instead of 1,2 as the first arguments to grid.layout. Sourcing this code causes the R GUI to crash. I've enclosed a partial backtrace from the crash below. ============== require(grid) sometext = "hello there\nthis is a \ntest!" pushViewport( viewport( layout=grid.layout(1,3, widths=unit.c( unit(1,"strwidth",sometext) + unit(2,"cm"), unit(1,"null&qu...

...777, st_size=0, ...}) = 0 > > > >>>>>> [...] > > > >>>>>> write(8, "H2\t0\t0\tadmin at domain.tld\tsieve\n", 30) = 30 > > > >>>>>> [...] > > > >>>>>> read(8, "Otest\1r\1ntest\n", 8192) = 14 > > > >>>>>> > > > >>>>>> Indeed "\1r" and "\1n" are the escape sequences used by > > > >>>>>> "lib/strescape.c". I went deeped and debugged the call to "dict...

...nning "doveadm dict get" against the dict socket: connect(8, {sa_family=AF_UNIX, sun_path="..."}, 110) = 0 fstat(8, {st_mode=S_IFSOCK|0777, st_size=0, ...}) = 0 [...] write(8, "H2\t0\t0\tadmin at domain.tld\tsieve\n", 30) = 30 [...] read(8, "Otest\1r\1ntest\n", 8192) = 14 Indeed "\1r" and "\1n" are the escape sequences used by "lib/strescape.c". I went deeped and debugged the call to "dict_lookup" performed by doveadm. Indeed the client gets the proper string from the socket and to my surprise, it is...

Dear R users, I have a data frame in the form below, on which I would like to make normality tests on the values in the ExpressionLevel column. > head(df) ID Plant Tissue Gene ExpressionLevel 1 1 p1 t1 g1 366.53 2 2 p1 t1 g2 0.57 3 3 p1 t1 g3 11.81 4 4 p1 t2 g1 498.43 5 5 p1 t2 g2 2.14 6 6 p1 t2 g3 7.85 I