data movie; infile 'C:\CSC423\week7\movies.TXT' delimiter='09'x MISSOVER DSD lrecl=32767; input movie $ opening budget star $ release $ ; numstar=1; if star = 'NoStar' then numstar = 0; numsum=1; if release = 'NoSummer' then numsum=0; sqopen=sqrt(opening); logopen=log(opening); invopen=1/opening; *proc print; *proc corr; *var opening budget numstar numsum; *run; symbol value=dot; /*proc gplot; plot logopen * (budget numstar numsum); run; */ proc reg; model logopen=budget; plot logopen*budget; plot student.*predicted.; plot student.*budget; plot npp.*student.; output student=resid; run; quit; proc univariate; var resid; probplot/normal(mu=est sigma=est); run; data pred; input movie $ opening budget star $ release $ ; logopen=log(opening); datalines; . . 65 . . ; data predict; set pred movie; proc reg; model logopen=budget/p clm; run;quit;