On Nov 17, 2009, at 10:55 AM, Greg Riddick wrote:
> >
> > library(MASS)
> > Iris <- data.frame(rbind(iris3[,,1], iris3[,,2], iris3[,,3]),
> +Sp = rep(c("s","c","v"), rep(50,3)))
> > train <- sample(1:150, 75)
> > table(Iris$Sp[train])
>
> c s v
> 22 23 30
> > z <- lda(Sp ~
>
> library(MASS)
> Iris <- data.frame(rbind(iris3[,,1], iris3[,,2], iris3[,,3]),
+Sp = rep(c("s","c","v"), rep(50,3)))
> train <- sample(1:150, 75)
> table(Iris$Sp[train])
c s v
22 23 30
> z <- lda(Sp ~ ., Iris, prior = c(1,1,1)/3, subset = train)
Error in if (targetlist[i]
2 matches
Mail list logo