Bryan Yang bryanyang0528

🎯

Focusing

https://www.linkedin.com/in/bryanyang0528/

bryanyang0528 / logistic_gradient_descent.R

Last active August 29, 2015 14:08 — forked from smc77/logistic_gradient_descent.R

	num.iterations <- 1000

	# Download South African heart disease data
	sa.heart <- read.table("http://www-stat.stanford.edu/~tibs/ElemStatLearn/datasets/SAheart.data", sep=",",head=T,row.names=1)

	x <- sa.heart[,c("age", "ldl")]
	y <- sa.heart$chd
	plot(x, pch=21, bg=c("red","green")[factor(y)])

	# Function to standardize input values