Displaying 1 result from an estimated 1 matches for "ica_100".
Did you mean:
ca_00
2009 Sep 23
2
Stretch the x-axis for better alignment comparison
...2,2,2,2),mgp=c(1.8,0.1.8,0),mfrow=c(1,1))
vector <- read.table(file=paste("a_i_u_100.TXT",sep=""))
plot(test$V2,test$V1,xlim=c(1,100),ylim=c
(-1,10),xlab="TRs",ylab="amplitude",col="blue",type="l")
ica <- read.table(file=paste("ica_100.TXT",sep=""))
lines(test$V2,test$V1, col="red")
title ("VECTOR & ICA ALIGNMENT")
dev.off()