Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- rsquaredjpn[s_] := LinearModelFit[Partition[Flatten[Riffle[regressionlistjpn[s], jpngdp]], 2], x, x]["RSquared"]
- plotjpn = ListLinePlot[Table[{s, rsquaredjpn[t]}, {s, 1, 100}], PlotRange -> All, AxesLabel -> {"K", "!(*SuperscriptBox[(R), (2)])"}]
Add Comment
Please, Sign In to add comment
