> gata.motifs.score<-rep(0,N)
#vector to hold the results of computation
> for(i in 1:N){gata.motifs.score[i]<-calcscore(gata.motifs[i,],log2pwm)
}