Hi,
Why do I get error msg by calling superpc.plotcv (see below)? I use superpc v.
1.0.4 and R 2.2.1
thanks
Haleh
------------------------------------------------------------------> set.seed(332)
> x<-matrix(rnorm(1000*40),ncol=40)
> y<-10+svd(x[1:60,])$v[,1]+ .1*rnorm(40)
> censoring.status<- sample(c(rep(1,30),rep(0,10)))
> featurenames <-
paste("feature",as.character(1:1000),sep="") >
data<-list(x=x,y=y, censoring.status=censoring.status,
featurenames=featurenames)
> library (superpc)
> a<- superpc.train(data, type="survival")
> aa<-superpc.cv(a,data)
fold= 1
11Loading required package: survival
Loading required package: splines
23212331234123512361237123812391231012311123121231312314123151231612317123181231912320123
fold= 2
1123212331234123512361237123812391231012311123121231312314123151231612317123181231912320123
fold= 3
1123212331234123512361237123812391231012311123121231312314123151231612317123181231912320123
fold= 4
1123212331234123512361237123812391231012311123121231312314123151231612317123181231912320123
fold= 5
112321233123412351236123712381239123101231112312123131231412315123161231712318123191232012
fold= 6
1123212331234123512361237123812391231012311123121231312314123151231612317123181231912320123> superpc.plotcv(aa)
Error in qchisq(p, df, lower.tail, log.p) :
Non-numeric argument to mathematical function
In addition: Warning message:
is.na() applied to non-(list or vector) in:
is.na(object$scor.upper)>
---------------------------------
Sponsored Link
Mortgage rates near 39yr lows. $420,000 Mortgage for $1,399/mo - Calculate new
house payment
[[alternative HTML version deleted]]