R: Construyendo variables correlacionadas

Tengo una variable con una distribución dada (normal en mi ejemplo a continuación).

set.seed(32)    
var1 = rnorm(100,mean=0,sd=1)

Quiero crear una variable (var2) que esté correlacionada con var1 con un coeficiente de correlación lineal (aproximadamente o exactamente) igual a "Corr". La pendiente de regresión entre var1 y var2 debe (rougly o exactamente) igual a 1.

Corr = 0.3

Cómo puedo conseguir esto ?

Quería hacer algo como esto:

decorelation = rnorm(100,mean=0,sd=1-Corr)
var2 = var1 + decorelation

Pero, por supuesto, cuando se ejecuta:

cor(var1,var2)

, el resultado no está cerca de Corr!