我有以下代码。我希望分配到i1，i2，i3，i4变量，需要使用m1，m2进行某些计算。 ，m3，m4变量。因此，我没有进行四次计算，而是尝试使用for循环。
在for循环中，我尝试将m1，m2，m3，m4变量分配给m变量，该变量稍后会进行所需的计算对于变量i1到i4。
但是使用paste()函数时会出现问题，因为它返回的是字符而不是变量。
问题：
1.如何使用粘贴功能返回变量？
2.如果不可能，我如何继续使用仅与最后一个数字不同的变量进行多次计算。
B_zap <- 3
L_zap <- 4.5
B <- 1.5
L <- 2.25
z <- 3
(m1 <- B / z)
(n1 <- L /z)
(m2 <- (B_zap - B) / z)
(n2 <- L /z)
(m3 <- (B_zap - B) / z)
(n3 <- (L_zap - L) / z)
(m4 <- B / z)
(n4 <- (L_zap - L) / z)
for(i in 1:4) {
m <- paste("m", i, sep = "")
n <- paste("n", i, sep = "")
(i1 <- 2 * m *n * (m^2 +n^2 +1) ^0.5 )
(i2 <- m^2 + n^2 +(m^2 * n^2) + 1)
(i3 <- m^2 + n^2 +2)
(i4 <- i3-1)
}