Displaying 1 result from an estimated 1 matches for "priodim".
Did you mean:
periodic
2003 Aug 06
3
problems with lda , data included, can somebody test with the new version
...ot; 136.568559 -18329.619348 -0.121503 "6"
"24" 127.983753 -16243.10434 -0.121176 "6"
-----
script:
library(MASS)
actaData<-read.table("actaData.dat")
actaData
ass<-actaData$assignment
print(ass)
tass<-table(ass)
print(tass)
#print(attributes(tass))
priodim<-attr(tass,"dim")
prio=c(rep(1,priodim))/priodim
print(prio)
actaData
z<-lda(assignment ~ .,actaData,prior=prio,tol=1.0e-08)
--- end script---
start output:
end output
> print(dim(actaData))
[1] 24 4
>
> ass<-actaData$assignment
> print(ass)
[1] 5 5 5 5 5 5 5 5 5...