Displaying 1 result from an estimated 1 matches for "usedvar".
Did you mean:
setvar
2012 Aug 15
2
store the results of two connected and "disturbed" for-loops to data.frame
...r all,
here is a example of my problem:
/#data#
g<-c(1,1,1,2,2,2)
A<-runif(6,min=1,max=5)
B<-runif(6,min=100,max=1000)
C<-runif(6,min=30,max=31)
D<-runif(6,min=67,max=98765)
var<-cbind(A,B,C,D)
label<-colnames(var)
store<-data.frame(matrix(ncol=2))
colnames(store)=c("usedVar","prediction")
library(MASS)#get lda
for (i in c(1:4))
{
for (k in c(1:4))
{
if(i==k)break()#using the same variable will not work in lda
dis<-lda(g~var[,i]+var[,k],CV=TRUE,fold=6)#linear discriminant function
ct<-table(g,dis$class)
pre<-sum(diag(prop.table(ct)))# P...