setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("output_strategies_", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(0:10000, data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("output_output2_", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(0:10000, data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("output_output2_", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(0:10000, data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("output_output2_", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(0:10000, data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("SACRED_output2_", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(0:10000, data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(0:10000, data[,j], col=colvec[j], lwd=1);
}
}
data[,j]
lensetwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:10000, data[,j], col=colvec[j], lwd=1);
}
}
length(data[,j])
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:9999, data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:8000, data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:length(data[,j]), data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_GM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:length(data[,j]), data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:length(data[,j]), data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_GM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,15,51,87))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:length(data[,j]), data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_mu0.0001_TM_GM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(2,2))
init <- 0;
for(i in c(0,10,34,46))
#for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:length(data[,j]), data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_T4_TM_GM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,10,34,46))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:length(data[,j]), data[,j], col=colvec[j], lwd=1);
}
}
setwd("C:\\Users\\p240827\\GDrive\\SACRED\\_SIMS2015\\data\\IPD_T4_TM_LM\\")
par(cex.lab = 2, cex.axis = 2, mfrow=c(10,10))
init <- 0;
#for(i in c(0,10,34,46))
for(i in 0:99)
{
output <- paste("SACRED_output2_run", i, ".txt", sep="");
data<-read.table(output, header=TRUE, sep='\t')
par(plt=c(0,1,0,1));
#plot(0, type='n', xlim=c(1,1000), ylim=c(0,1), axes=F, xlab="", ylab="")
plot(0, type='n', xlim=c(1,10000), ylim=c(0,1), axes=F, xlab="", ylab="")
colvec <- c("firebrick1", "grey0", "yellow", "firebrick", "gold", "grey16", "grey33", "grey50", "darkorchid1", "mediumturquoise", "dodgerblue", "darkorange", "grey67", "grey83", "grey100", "forestgreen")
for(j in 1:16)
{
#lines(1:1000, data[5001:6000,j], col=colvec[j], lwd=1);
lines(1:length(data[,j]), data[,j], col=colvec[j], lwd=1);
}
}
q()
