mihids · July 26, 2012 09:04
diff --git a/gistfile1.r b/gistfile1.r
 x <- sample(-50:50,50) # select 50 values between -50 and +50 with replacement - consider option replace=F
 y <- 2*x + 1 # linearly correlated data
 plot(x,y)
 r <- runif(50, 1.0, 40.0) # generate 50 random numbers between 1 and 40
 y_1 <- y+ r # Correlated but not exact
 plot(x,y_1)
	x <- sample(-50:50,50) # select 50 values between -50 and +50 with replacement - consider option replace=F
	y <- 2*x + 1 # linearly correlated data
	plot(x,y)
	r <- runif(50, 1.0, 40.0) # generate 50 random numbers between 1 and 40
	y_1 <- y+ r # Correlated but not exact
	plot(x,y_1)