In[]:=
Module{basedata=Range[100],error,perfectQuadratic},error=20RandomReal[{-1,1},Length@basedata];perfectQuadratic=;Column@{ListLogLogPlot[{basedata,basedata+error,perfectQuadratic,Accumulate[basedata+error]},PlotLegends{"basedata","basedata + error","perfectQuadratic","Accumulate[basedata + error]"},Joined{True,False,True,False},ImageSizeMedium],ListPlot[{basedata,basedata+error},PlotLegends{"basedata","basedata + error"},Joined{True,False},ImageSizeMedium],ListPlot[{perfectQuadratic,Accumulate[basedata+error]},PlotLegends{"perfectQuadratic","Accumulate[basedata + error]"},Joined{True,False},ImageSizeMedium]}
1
2
2
basedata
Out[]=