Error in model.frame.default

[candyandy]

Hi guys, I'm a college student and I'm doing manova in R. I'm having a problem while trying to get the residuals, the error is like this

Error in model.frame.default(formula = data2$y1 ~ Variety, drop.unused.levels = TRUE) :
variable lengths differ (found for 'Variety')

This is my codes

> f <- file.choose("question2_HW4.txt")

> data2 <- read.table (f, header = TRUE)

> attach(data2)

> data2=na.omit(data2)

> location <- as.factor(data2[,1])

> Variety <- as.factor(data2[.2])

> y <- as.matrix(data2[,3:5])

> y1resloca= lm(data2$y1~location)$residuals

> y2resloca= lm(data2$y2~location)$residuals

> y3resloca= lm(data2$y3~location)$residuals

> y1resvari= lm(data2$y1~Variety)$residuals

Any help would be much appreciated.

[candyandy]

https://www.transtutors.com/questions/peanuts-are-an-important-crop-in-parts-of-the-southern-united-states-in-an-effort-to-1743101.htm
This is the topic and the dataset

[nirgrahamuk]

@candyandy

Variety <- as.factor(data2[.2])

. 2 ?
Typo i think.
,2