for(j in 1:4) {
    for(i in 1:5) { 
        nam <- paste("S",j,"T", i, sep = "")
        assign(nam, 20)
    }
}
ls(all.names = TRUE)
print(S1T5)