Please kind i get a professional to help me with statistical problem

my.datafile <- tempfile() cat(file=my.datafile, " Liking Moisture Sweetness 64.0 4.0 2.0 73.0 4.0 4.0 61.0 4.0 2.0 76.0 4.0 4.0 72.0 6.0 2.0 80.0 6.0 4.0 71.0 6.0 2.0 83.0 6.0 4.0 83.0 8.0 2.0 89.0 8.0 4.0 86.0 8.0 2.0 93.0 8.0 4.0 88.0 10.0 2.0 95.0 10.0 4.0 94.0 10.0 2.0 100.0 10.0 4.0 ", sep=" ") options(scipen=999) # suppressing scientific notation brand<-read.table(my.datafile,header=T) attach(brand) names(brand)