examples/semincoductors.r

Hi!

There seems to be an issue with the cross-validation code (starts from line 59. The problem lies in line 72 where the subsetting results in a NULL variable (it uses "cutvar" that is not declared anywhere throughout the code). 

I resolved the problem by correcting the subsetting bit: changed `data=cutvar` to `data=SC[,c("FAIL",names(signif))]`. It's rather crude but works like magic, 