First, you can directly load the dataset from the following URL:
mydata <- read.csv("https://ximarketing.github.io/class/Kickstarter-Project.csv",
fileEncoding = "UTF-8-BOM")
summary(mydata)
Consider the following linear regression: We want to see how the video and the project type affect the total funding raised. We use FundingRaised as the dependent variable, IsVideoAvailable as the independent variable, and Subtype as a fixed effect (because it is not a value).
result <- lm(FundingRaised ~ IsVideoAvailable + factor(Subtype), data = mydata)
summary(result)
What do you learn from the results?