Need calculated Fields for #Clusters and Seed

Regression using R Script

SCRIPT_REAL("

fit <- lm(.arg1 ~ .arg2)

fit$fitted",

SUM([PercentObeseAdults]),

SUM([McDPer100K]))

K-Means calculation using R Script

SCRIPT_INT("

set.seed( .arg5[1] )

fat <- ( .arg1 - mean(.arg1) )/sd(.arg1)

salt <- ( .arg2 - mean(.arg2) )/sd(.arg2)

calories <- ( .arg3 - mean(.arg3) )/sd(.arg3)

dat <- cbind(fat, salt, calories)

num <- .arg4[1]

kmeans(dat, num)$cluster",

SUM([Total Fat (% Daily Value)]), SUM([Sodium]),

SUM([Sugars]),

[# of Clusters], [Seed])

Box and Whiskers

Menu Items and their Clusters