fn.R~

#����SVM�������ķ��ྫ��
#���룺dat��ѵ����ݣ���ʽ��n*m�ľ�����Ϊ���ԣ���m��Ϊ���
#	 testDat��������ݣ���ʽ��n*m�ľ�����Ϊ���ԣ���m��Ϊ���
#�����accy�����ྫ��
TestSVM = function(dat,testDat){
	library("class")
	library("e1071")
#	sizeDat=dim(dat)
#	col=sizeDat[2]
	col=length(dat)
	trainSamp=dat[,1:col-1]
	trainLable=dat[,col]
	model=svm(trainSamp,trainLable)
	testSamp=testDat[,1:col-1]
	testLable=testDat[,col]
 	prd=predict(model,testSamp)
	rightLable=which(prd==testLable)
	accy=length(rightLable)/length(testLable)
	return(accy)
	table(prd,testLable)	
}

#����ݿ�Ŀ����ȥ�����ȥ�������,ʾ��Ϊȥ�� "?"
#���룺 sdat,n*m����ݿ�
#�����newDat,ȥ�����ݺ�Ľ����ݿ�
DelBlank=function(sdat){
	sizeDat=dim(sdat)
	for(i in 1:sizeDat[1]){
		sigBlank=which(sdat[i,]=="?")
		sdat[i,sigBlank]=NA
	}
	newDat=na.omit(sdat)
	return(newDat)
}

CalAccy=function(filename){
	sdats=read.table(filename,sep=",")
	sdatc=DelBlank(sdats)
	sdatcSamp=sdatc[,2:length(sdatc)]
	sdatcCls=as.character(sdatc[,1])
	sdatcD=cbind(sdatcSamp,sdatcCls)
	sdatAcy=TestSVM(sdatcD,sdatcD)	
	return(sdatAcy)
}

CroDat=function(dat){
	rowcol=dim(dat)
	lableAll=levels(dat[,rowcol[2]])
	for(i in 1:length(lableAll)){
			idSig=dat[,rowcol[2]==lableAll[i]]
			
	}
}