nd<-function(fileName){
        data<-read.table("e:/data.txt")
        i<-1
        x<-c(1:length(data[i,]))
        plot(x,data[i,])
}