mihids · July 27, 2012 01:38
diff --git a/correlated_data.R b/correlated_data.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)
No results found