Week 7 Assignment - Unsupervised Learning (Attempt #2)

getwd()

‘/Users/JoJo’

'/Users/JoJo/Desktop/Projects/650/Week 7/'

‘/Users/JoJo/Desktop/Projects/650/Week 7/’

filepath <- '/Users/JoJo/Desktop/Projects/650/Week 7/dfa-unsupervised.csv'

df = read.csv('/Users/JoJo/Desktop/Projects/650/Week 7/dfa-unsupervised.csv')

Warning message in read.table(file = file, header = header, sep = sep, quote = quote, :
“incomplete final line found by readTableHeader on '/Users/JoJo/Desktop/Projects/650/Week 7/dfa-unsupervised.csv'”

head('df')

‘df’

install.packages("ggplot2")

The downloaded binary packages are in
    /var/folders/mr/m5qxlyt52516tbgsf2w8nmf80000gn/T//RtmpwfxQUC/downloaded_packages

install.packages("data.table")

The downloaded binary packages are in
    /var/folders/mr/m5qxlyt52516tbgsf2w8nmf80000gn/T//RtmpwfxQUC/downloaded_packages

getwd()

‘/Users/JoJo’

'/Users/JoJo/Desktop/Projects/650/Week 7/'

‘/Users/JoJo/Desktop/Projects/650/Week 7/’

filepath <- '/Users/JoJO/Desktop/Projects/650/Week 7/dfa-unsupervised.csv'

df = read.csv('/Users/JoJO/Desktop/Projects/650/Week 7/dfa-unsupervised.csv')

Warning message in read.table(file = file, header = header, sep = sep, quote = quote, :
“incomplete final line found by readTableHeader on '/Users/JoJO/Desktop/Projects/650/Week 7/dfa-unsupervised.csv'”

head(df)

<tr><td>Colorado Mesa University</td><td>10089589                </td><td>13485                   </td></tr>
<tr><td>Elevations Credit Union </td><td> 2966906                </td><td> 2429                   </td></tr>
<tr><td>Stapleton               </td><td> 2469615                </td><td>31486                   </td></tr>

Advertiser	Impressions	Clicks

set.seed(42)

km <-kmeans(df[,1:3], 3, nstart=3)

Warning message in kmeans(df[, 1:3], 3, nstart = 3):
“NAs introduced by coercion”


Error in do_one(nmeth): NA/NaN/Inf in foreign function call (arg 1)
Traceback:


1. kmeans(df[, 1:3], 3, nstart = 3)

2. do_one(nmeth)