Error: unexpected input in "result <- lm(LogFundingRaised ~ LogVideoLength + LogHuman + LogComputer + LogEnergy + LogContent + LogUpset + LogAngry + LogMaxAmpVol+ factor(IsvideoAvailable),"