In[]:=
net=NetChain[{#,#}&[LinearLayer[1,"Input"1]//NetInitialize]]
Out[]=
NetChain
In[]:=
net=NetTrain[net,Table[{x}{.5-.1#+RandomReal[{-.01,.01}]&@x},{x,RandomReal[{-1,1},10]}]]
Out[]=
NetChain
Plot[net[x],{x,0,1}]
Out[]=
In[]:=
Table[Normal@NetExtract[NetExtract[net,layer],param],{layer,2},{param,{"Weights","Biases"}}]
Out[]=
{{{{-0.177519}},{0.389681}},{{{0.586321}},{0.27281}}}
