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]]

