function(n, m)
{
	v <- matrix(nrow = n, ncol = m)
	for(i in 1:n) {
		for(j in 1:m) {
			v[i, j] <- 1
		}
	}
	v
}
